check for file existence

nlmixr2 · Sep 18, 2024 · a475712 · a475712
1 parent 0be2437
commit a475712
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/monolix2rx.R b/R/monolix2rx.R
@@ -88,6 +88,12 @@ monolix2rx <- function(mlxtran, update=TRUE, thetaMatType=c("sa", "lin"),
   }
   .admd <- NULL
   .cmt <- NULL
+  if (!is.null(.mlxtran$MODEL$LONGITUDINAL$LONGITUDINAL$file)) {
+    if (!file.exists(.mlxtran$MODEL$LONGITUDINAL$LONGITUDINAL$file)) {
+      stop("the model file '", .mlxtran$MODEL$LONGITUDINAL$LONGITUDINAL$file, "' does not exist\nyou may need to setup the model library to complete translation",
+           call.=FALSE)
+    }
+  }
   if (is.null(.mlxtran$MODEL$LONGITUDINAL$EQUATION) &&
         !is.null(.mlxtran$MODEL$LONGITUDINAL$PK)) {
     .e <- .equation("", .mlxtran$MODEL$LONGITUDINAL$PK)