Skip to content

Commit

Permalink
Fix ui props issues
Browse files Browse the repository at this point in the history
  • Loading branch information
mattfidler committed Aug 28, 2024
1 parent b85d700 commit 130f927
Showing 1 changed file with 8 additions and 4 deletions.
12 changes: 8 additions & 4 deletions tests/testthat/test-ui-props.R
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,8 @@ if (!.Call(`_rxode2_isIntel`)) {
output = list(primary = c("fdepot", "ka", "wtnorm", "cl", "q", "v", "vp"),
secondary = character(0),
endpoint = "Cc",
state = character(0))))
state = character(0)),
cmtProp=NULL))

expect_equal(obj_odes$props,
list(pop = c("lvc", "lke", "lkcp", "Mpc", "lka", "lMTT", "lVm", "Km", "lfdepot", "e_wt_vc"),
Expand All @@ -128,7 +129,8 @@ if (!.Call(`_rxode2_isIntel`)) {
output = list(primary = c("vc", "ke", "kcp", "ka", "MTT", "Vm", "kpc"),
secondary = "ktr",
endpoint = "Cc",
state = c("depot", "transit1", "transit2", "transit3", "central", "periph"))))
state = c("depot", "transit1", "transit2", "transit3", "central", "periph")),
cmtProp=data.frame(Compartment="depot", Property="f")))


fun_ana2 <- function() {
Expand Down Expand Up @@ -180,7 +182,8 @@ if (!.Call(`_rxode2_isIntel`)) {
output = list(primary = c("fdepot", "ka", "wtnorm", "cl", "q", "v", "vp"),
secondary = character(0),
endpoint = character(0),
state = character(0))))
state = character(0)),
cmtProp=NULL))

})

Expand Down Expand Up @@ -211,7 +214,8 @@ if (!.Call(`_rxode2_isIntel`)) {
output = list(primary = character(0),
secondary = character(0),
endpoint = "Cc",
state = character(0))))
state = character(0)),
cmtProp=NULL))

})

Expand Down

0 comments on commit 130f927

Please sign in to comment.