check formula

easystats · Nov 22, 2024 · af64d2e · af64d2e
1 parent d07418e
commit af64d2e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 7 deletions.
diff --git a/R/check_model.R b/R/check_model.R
@@ -501,7 +501,7 @@ check_model.DHARMa <- check_model.performance_simres
 
   # posterior predictive checks --------------
   if (any(c("all", "pp_check") %in% check)) {
-    dat$PP_CHECK <- .safe(check_predictions(model, ...))
+    dat$PP_CHECK <- .safe(check_predictions(model, verbose = verbose, ...))
   }
 
   dat <- insight::compact_list(dat)
@@ -552,7 +552,7 @@ check_model.DHARMa <- check_model.performance_simres
 
   # posterior predictive checks --------------
   if (any(c("all", "pp_check") %in% check)) {
-    dat$PP_CHECK <- .safe(check_predictions(model, ...))
+    dat$PP_CHECK <- .safe(check_predictions(model, verbose = verbose, ...))
   }
 
   # binned residuals for bernoulli/binomial --------------

diff --git a/R/check_predictions.R b/R/check_predictions.R
@@ -102,11 +102,13 @@ check_predictions.default <- function(object,
                                       ...) {
   .is_model_valid(object)
   # check_predictions() can't handle exotic formula notation
-  insight::formula_ok(
-    object,
-    action = "error",
-    prefix_msg = "Posterior predictive checks failed due to an incompatible model formula." # nolint
-  )
+  if (verbose) {
+    insight::formula_ok(
+      object,
+      action = "error",
+      prefix_msg = "Posterior predictive checks failed due to an incompatible model formula." # nolint
+    )
+  }
 
   # retrieve model information
   minfo <- insight::model_info(object, verbose = FALSE)