Update describe_posterior.R

easystats · Jan 27, 2025 · 46139ea · 46139ea
1 parent fb746e3
commit 46139ea
Showing 1 changed file with 18 additions and 1 deletion.
diff --git a/R/describe_posterior.R b/R/describe_posterior.R
@@ -141,7 +141,7 @@ describe_posterior.default <- function(posterior, ...) {
   }
 
   # we need this information from the original object
-  if (all(rope_range == "default")) {
+  if (.check_if_need_to_compute_rope_range(rope_range, test)) {
     rope_range <- rope_range(x, verbose = verbose, ...)
   }
 
@@ -1433,3 +1433,20 @@ describe_posterior.BFBayesFactor <- function(posterior,
     "bf", "bayesfactor", "bayes_factor", "p_map", "all"
   ), several.ok = TRUE)
 }
+
+#' @keywords internal
+.check_if_need_to_compute_rope_range <- function(rope_range, test) {
+  if (rope_range != "default") {
+    return(FALSE)
+  }
+
+  need_rope <- c(
+    "all",
+    "p_rope",
+    "ps", "p_sig", "p_significance",
+    "rope",
+    "equivalence", "equivalence_test", "equitest"
+  )
+
+  return(is.character(test) && length(test) > 0L && any(need_rope %in% tolower(test)))
+}