Change error since you can bind multiple models together

nlmixr2 · Dec 2, 2023 · effd4ba · effd4ba
1 parent 913a576
commit effd4ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ui-bind.R b/R/ui-bind.R
@@ -34,7 +34,7 @@ rxAppendModel_ <- function(model1, model2, common=TRUE) {
   .ini2 <- model2$iniDf
   .bind <- intersect(c(model1$mv0$lhs, model1$mv0$state), model2$allCovs)
   if (common && length(.bind) == 0) {
-    stop("the first model does not have variables that are used by the second model",
+    stop("not all the models have variables in common (use `common=FALSE` to allow this)",
          call.=FALSE)
   }
   if (is.null(.ini1) && is.null(.ini2)) {