describe_posterior() only conditionally calls rope_range() when needed

R/describe_posterior.R

@@ -46,7 +46,7 @@
 #' - Makowski, D., Ben-Shachar, M. S., Chen, S. H. A., and Lüdecke, D. (2019).
 #'   *Indices of Effect Existence and Significance in the Bayesian Framework*.
 #'   Frontiers in Psychology 2019;10:2767. \doi{10.3389/fpsyg.2019.02767}
 #' - [Region of Practical Equivalence (ROPE)](https://easystats.github.io/bayestestR/articles/region_of_practical_equivalence.html)
 #' - [Bayes factors](https://easystats.github.io/bayestestR/articles/bayes_factors.html)
 #'
 #' @examples
@@ -120,7 +120,7 @@
 
 
 #' @keywords internal
 .describe_posterior <- function(x,
                                 centrality = "median",
                                 dispersion = FALSE,
                                 ci = 0.95,
@@ -141,7 +141,7 @@
   }
 
   # 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 @@
     "bf", "bayesfactor", "bayes_factor", "p_map", "all"
   ), several.ok = TRUE)
 }
+
+#' @keywords internal
+.check_if_need_to_compute_rope_range <- function(rope_range, test) {
+  if (is.numeric(rope_range) || is.list(rope_range)) {
+    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)))
+}