update snapshot

easystats · Sep 3, 2024 · c3c1811 · c3c1811
1 parent 70c45c8
commit c3c1811
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/R/p_significance.R b/R/p_significance.R
@@ -89,9 +89,18 @@ p_significance.lm <- function(x, threshold = "default", ci = 0.95, verbose = TRU
 
 #' @export
 print.p_significance_lm <- function(x, digits = 2, p_digits = 3, ...) {
+  threshold <- attributes(x)$threshold
+  # make sure it's numeric
+  if (!is.numeric(threshold)) {
+    threshold <- 0.1
+  }
+  # make sure we have both bounds for the range
+  if (length(threshold) == 1) {
+    threshold <- c(threshold * -1, threshold)
+  }
   caption <- sprintf(
     "Practical Significance (threshold: %s)",
-    insight::format_value(attributes(x)$threshold, digits = 2)
+    paste(insight::format_value(threshold, digits = 2), collapse = ", ")
   )
   x$ps <- insight::format_p(x$ps, name = "ps", digits = p_digits)
   x <- insight::format_table(x, digits = digits, p_digits = p_digits)

diff --git a/tests/testthat/_snaps/p_significance.md b/tests/testthat/_snaps/p_significance.md
@@ -3,7 +3,7 @@
     Code
       print(x)
     Output
-      Practical Significance (threshold: default)
+      Practical Significance (threshold: -0.10, 0.10)
       
       Parameter   |         95% CI |         ps
       -----------------------------------------