#' Percentage in ROPE formatting
#'
#' @param rope_percentage Value or vector of percentages in ROPE.
#' @inheritParams format_p
#' @inheritParams format_ci
#'
#' @return A formatted string.
#'
#' @examples
#' format_rope(c(0.02, 0.12, 0.357, 0))
#' format_rope(c(0.02, 0.12, 0.357, 0), name = NULL)
#' @export
format_rope <- function(rope_percentage, name = "in ROPE", digits = 2) {
out <- ifelse(rope_percentage == 0, "0%",
ifelse(rope_percentage == 1, "100%", # nolint
format_value(rope_percentage, digits = digits, as_percent = TRUE)
)
)
if (!is.null(name)) {
out <- paste(out, name)
}
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.