pass verbose

easystats · May 24, 2024 · 894626c · 894626c
1 parent a049b99
commit 894626c
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: bayestestR
 Title: Understand and Describe Bayesian Models and Posterior Distributions
-Version: 0.13.2.1
+Version: 0.13.2.2
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",

diff --git a/R/describe_posterior.R b/R/describe_posterior.R
@@ -787,7 +787,7 @@ describe_posterior.emmGrid <- function(posterior,
                                        ...) {
   if (any(c("all", "bf", "bayesfactor", "bayes_factor") %in% tolower(test)) ||
     "si" %in% tolower(ci_method)) {
-    samps <- .clean_priors_and_posteriors(posterior, bf_prior)
+    samps <- .clean_priors_and_posteriors(posterior, bf_prior, verbose = verbose)
     bf_prior <- samps$prior
     posterior_samples <- samps$posterior
   } else {

diff --git a/R/si.R b/R/si.R
@@ -160,9 +160,7 @@ si.blavaan <- si.stanreg
 #' @export
 si.emmGrid <- function(posterior, prior = NULL,
                        BF = 1, verbose = TRUE, ...) {
-  samps <- .clean_priors_and_posteriors(posterior, prior,
-    verbose = verbose
-  )
+  samps <- .clean_priors_and_posteriors(posterior, prior, verbose = verbose)
 
   # Get SIs
   out <- si.data.frame(

diff --git a/R/utils_bayesfactor.R b/R/utils_bayesfactor.R
@@ -70,7 +70,9 @@
 
   if (is.null(prior)) {
     prior <- posterior
-    insight::format_warning("Prior not specified! Please provide the original model to get meaningful results.")
+    if (verbose) {
+      insight::format_warning("Prior not specified! Please provide the original model to get meaningful results.")
+    }
   }
 
 
@@ -129,7 +131,9 @@
                                                   verbose = TRUE, ...) {
   if (is.null(prior)) {
     prior <- posterior
-    insight::format_warning("Prior not specified! Please provide the original model to get meaningful results.")
+    if (verbose) {
+      insight::format_warning("Prior not specified! Please provide the original model to get meaningful results.")
+    }
   }
 
   if (!inherits(prior, "emm_list")) {