diff --git a/R/print_html.R b/R/print_html.R index b9f958814..6e9f7883a 100644 --- a/R/print_html.R +++ b/R/print_html.R @@ -50,11 +50,22 @@ print_html.p_rope <- function(x, digits = 2, ...) { #' @export print_html.p_significance <- function(x, digits = 2, ...) { - caption <- sprintf( - "Practical Significance (threshold: %s)", - insight::format_value(attributes(x)$threshold, digits = digits) - ) - .print_html_default(x = x, digits = digits, caption = caption, ...) + threshold <- attributes(x)$threshold + if (is.list(threshold)) { + caption <- "Practical Significance" + out <- as.data.frame(do.call(rbind, threshold)) + colnames(out) <- c("ROPE_low", "ROPE_high") + x$ROPE_low <- out$ROPE_low + x$ROPE_high <- out$ROPE_high + ci_string <- "ROPE" + } else { + caption <- sprintf( + "Practical Significance (threshold: %s)", + insight::format_value(attributes(x)$threshold, digits = digits) + ) + ci_string <- NULL + } + .print_html_default(x = x, digits = digits, caption = caption, ci_string = ci_string, ...) } diff --git a/R/print_md.R b/R/print_md.R index 643c7d50a..c45cd27b2 100644 --- a/R/print_md.R +++ b/R/print_md.R @@ -49,11 +49,22 @@ print_md.p_rope <- function(x, digits = 2, ...) { #' @export print_md.p_significance <- function(x, digits = 2, ...) { - caption <- sprintf( - "Practical Significance (threshold: %s)", - insight::format_value(attributes(x)$threshold, digits = digits) - ) - .print_md_default(x = x, digits = digits, caption = caption, ...) + threshold <- attributes(x)$threshold + if (is.list(threshold)) { + caption <- "Practical Significance" + out <- as.data.frame(do.call(rbind, threshold)) + colnames(out) <- c("ROPE_low", "ROPE_high") + x$ROPE_low <- out$ROPE_low + x$ROPE_high <- out$ROPE_high + ci_string <- "ROPE" + } else { + caption <- sprintf( + "Practical Significance (threshold: %s)", + insight::format_value(attributes(x)$threshold, digits = digits) + ) + ci_string <- NULL + } + .print_md_default(x = x, digits = digits, caption = caption, ci_string = ci_string, ...) }