Merge pull request #289 from nlmixr2/288-cran-machine-errors

288 cran machine errors
nlmixr2 · Sep 22, 2022 · bae1b7a · bae1b7a
2 parents 3954abf + b28003c
commit bae1b7a
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -70,7 +70,8 @@ Suggests:
     rsconnect,
     devtools,
     patchwork,
-    nlmixr2data
+    nlmixr2data,
+    lifecycle
 Imports:
     PreciseSums (>= 0.3),
     Rcpp (>= 0.12.3),

diff --git a/R/ui-bind.R b/R/ui-bind.R
@@ -6,6 +6,9 @@
 #' @author Matthew L. Fidler
 #' @export
 #' @examples
+#' 
+#' \donttest{
+#' 
 #' ocmt <- function() {
 #'    ini({
 #'      tka <- exp(0.45) # Ka
@@ -43,12 +46,13 @@
 #' }
 #'
 #' rxAppendModel(ocmt %>% model(ceff=cp,append=TRUE), idr)
-#'
+#' }
 #'
 rxAppendModel <- function(model1, model2) {
   model1 <- assertRxUi(model1)
   model1 <- .copyUi(model1) # so modifications do not affect first model
   model2 <- assertRxUi(model2)
+  model2 <- .copyUi(model2)
   .ini1 <- model1$iniDf
   .ini2 <- model2$iniDf
   .bind <- intersect(c(model1$mv0$lhs, model1$mv0$state), model2$allCovs)

diff --git a/man/rxAppendModel.Rd b/man/rxAppendModel.Rd