From effd4ba277ae48fd27ebdccd5ea7852314b32f4c Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Fri, 1 Dec 2023 20:46:34 -0600
Subject: [PATCH] Change error since you can bind multiple models together

---
 R/ui-bind.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/ui-bind.R b/R/ui-bind.R
index c4ac9a1e9..789d9b57a 100644
--- 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)) {