Merge pull request #19 from nlmixr2/19-rxCov_not-in-ini

rxCov_ variables should not be included in the ini({}) block
nlmixr2 · Sep 24, 2024 · be77718 · be77718
2 parents 35cbaae + 30d89b7
commit be77718
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # monolix2rx (development version)
 
+* For initial conditions starting with `rxCov_` don't add to ini
+
 # monolix2rx 0.0.2
 
 * Remove `rxode2parse` `LinkingTo`

diff --git a/R/def2ini.R b/R/def2ini.R
@@ -269,13 +269,21 @@
   .env$pars <- pars
   lapply(names(longDef$fixed),
          function(v) {
-           .env$pars <- rbind(.env$pars,
-                              data.frame(name=v, value=longDef$fixed[v], method="FIXED"))
+           if (nchar(v) >= 6 &&
+                 substr(v, 1, 6) == "rxCov_") {
+           } else {
+             .env$pars <- rbind(.env$pars,
+                                data.frame(name=v, value=longDef$fixed[v], method="FIXED"))
+           }
          })
   lapply(names(def$fixed),
          function(v) {
-           .env$pars <- rbind(.env$pars,
-                              data.frame(name=v, value=def$fixed[v], method="FIXED"))
+           if (nchar(v) >= 6 &&
+                 substr(v, 1, 6) == "rxCov_") {
+           } else {
+             .env$pars <- rbind(.env$pars,
+                                data.frame(name=v, value=def$fixed[v], method="FIXED"))
+           }
          })
   pars <- .env$pars
   .var <- def$var