Don't run examples with linCmt() that need sens (unless there)

nlmixr2 · Jan 26, 2024 · 29a0896 · 29a0896
1 parent 185987f
commit 29a0896
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 0 deletions.
diff --git a/R/nls.R b/R/nls.R
@@ -14,6 +14,8 @@
 #' @examples
 #' \donttest{
 #'
+#' if (rxode2parse::.linCmtSens()) {
+#'
 #' one.cmt <- function() {
 #'   ini({
 #'    tka <- 0.45
@@ -39,6 +41,7 @@
 #' # You can access the underlying nls object with `$nls`
 #' fit2$nls
 #' }
+#' }
 nlsControl <- function(maxiter=10000,
                        tol = 1e-05,
                        minFactor = 1/1024,

diff --git a/R/vpc.R b/R/vpc.R
@@ -19,6 +19,9 @@
 #' @examples
 #'
 #' \donttest{
+#'
+#' if (rxode2parse::.linCmtSens()) {
+#'
 #' one.cmt <- function() {
 #'  ini({
 #'    ## You may label each parameter with a comment
@@ -46,6 +49,8 @@
 #' head(vpcSim(fit, pred=TRUE))
 #'
 #' }
+#'
+#' }
 vpcSim <- function(object, ..., keep=NULL, n=300,
                    pred=FALSE, seed=1009, nretry=50, minN=10,
                    normRelated=TRUE) {

diff --git a/man/nlsControl.Rd b/man/nlsControl.Rd
diff --git a/man/vpcSim.Rd b/man/vpcSim.Rd