Model piping with ({}) and strings doesn't quite work

[mattfidler]

library(rxode2)
#> rxode2 3.0.2.9000 using 8 threads (see ?getRxThreads)
#>   no cache: create with `rxCreateCache()`
one.cmt <- function() {
  ini({
    ## You may label each parameter with a comment
    tka <- 0.45 # Log Ka
    tcl <- log(c(0, 2.7, 100)) # Log Cl
    ## This works with interactive models
    ## You may also label the preceding line with label("label text")
    tv <- 3.45; label("log V")
    ## the label("Label name") works with all models
    eta.ka ~ 0.6
    eta.cl ~ 0.3
    eta.v ~ 0.1
    add.sd <- 0.7
  })
  model({
    ka <- exp(tka + eta.ka)
    cl <- exp(tcl + eta.cl)
    v <- exp(tv + eta.v)
    linCmt() ~ add(add.sd)
  })
}

scm <- function(ui, par="ka", cov="WT", exp1="exp1", center=70) {
  par1 <- paste0(par, " <- exp(t", par, "+ eta.", par, "+ ", exp1, "*", cov, "/", center,  ")")
  ui %>%
    model({par1})
}
scm(one.cmt)
#> Error in .c[[1]]: object of type 'symbol' is not subsettable

^{Created on 2024-11-21 with reprex v2.1.1}