Error with wd specified and modName not specified

nlmixr2 · Jun 23, 2024 · d408e9a · d408e9a
1 parent d1c62b7
commit d408e9a
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,9 @@
 # rxode2 (development version)
 
+## Breaking Changes
+
+- Error when specifying `wd` without `modName`
+
 # rxode2 2.1.3
 
 ## Bug fixes

diff --git a/R/rxode2.R b/R/rxode2.R
@@ -277,6 +277,10 @@ rxode2 <- # nolint
            verbose = FALSE,
            fullPrint=getOption("rxode2.fullPrint", FALSE),
            envir=parent.frame()) {
+    if (!missing(wd) && missing(modName)) {
+      stop("working directory specified, but modName not declared, need to specify modName to create rxode2 c-files as a sub-directory of `wd`",
+              call.=FALSE)
+    }
     rxode2parse::.udfEnvSet(envir)
     assignInMyNamespace(".rxFullPrint", fullPrint)
     rxSuppressMsg()

diff --git a/tests/testthat/test-backward.R b/tests/testthat/test-backward.R
@@ -1,5 +1,11 @@
 rxTest({
 
+  test_that("error with wd specified but modName not specified", {
+
+expect_error(rxode2("cp<-cent/vc;d/dt(gutcp)<--ka*gutcp;d/dt(cent)<-(ka*gutcp)-q/vc*cent+q/vp*pericp-((vmax*cp)/vc)/(km+cp);d/dt(pericp)<-cent*q/vc-q/vp*pericp;f(gutcp)=bio;alag(gutcp)<-lag;gutcp(0)<-0;cent(0)<-0;pericp(0)<-0;", wd=getwd()))
+
+  })
+
   ## Dynmodel routines
   ode <- "
    dose=200;