fixing logic preventing NA assignment to dosing when the model has no…

… dosing.
nlmixr2 · Jun 21, 2024 · d325d47 · d325d47
1 parent 6739d8c
commit d325d47
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/R/modeldb.R b/R/modeldb.R
@@ -128,10 +128,11 @@ addFileToModelDb <- function(dir, file, modeldb) {
       dosing = c(dosing, "depot") }
     if("central" %in% mod$params$cmt){
       dosing = c(dosing, "central") }
-    dosing = paste(dosing, collapse=",")
-  }
-  if(is.null(dosing)){
-    dosing = NA_character_ 
+    if(!is.null(dosing)){
+      dosing = paste(dosing, collapse=",")
+    } else {
+      dosing = NA_character_ 
+    }
   }
 
   # Finding depends

diff --git a/data/modeldb.rda b/data/modeldb.rda