Handle case where meta doesn't exist

nlmixr2 · Nov 30, 2023 · b3d6d74 · b3d6d74
1 parent 7dc7244
commit b3d6d74
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/rxsolve.R b/R/rxsolve.R
@@ -1149,7 +1149,11 @@ rxSolve.function <- function(object, params = NULL, events = NULL, inits = NULL,
 .uiRxControl <- function(ui, params = NULL, events = NULL, inits = NULL, ...,
                          theta = NULL, eta = NULL) {
   .ctl <- rxControl()
-  .meta <- get("meta", ui)
+  if (exists("meta", envir=ui)) {
+    .meta <- get("meta", ui)
+  } else {
+    .meta <- new.env(parent=emptyenv())
+  }
   .lst <- list(...)
   .nlst <- names(.lst)
   .w <- which(vapply(names(.ctl), function(x) {