R/sanitize_fmt.R

In vincentarelbundock/gtsummary: Summary Tables and Plots for Statistical Models and Data: Beautiful, Customizable, and Publication-Ready

#' sanity check
#'
#' @noRd
sanitize_fmt <- function(fmt, ...) {
    checkmate::assert(
        checkmate::check_numeric(fmt, len = 1, lower = 0),
        checkmate::check_class(fmt, "fmt_factory"),
        checkmate::check_function(fmt),
        checkmate::check_string(fmt, pattern = "%"),
        # checkmate::check_list(fmt, names = "unique"),
        checkmate::check_null(fmt))

    if (inherits(fmt, "fmt_factory")) {
        out <- fmt
    } else if (isTRUE(checkmate::check_string(fmt))) {
        out <- fmt_sprintf(fmt)
    } else if (isTRUE(checkmate::check_numeric(fmt))) {
        out <- fmt_decimal(fmt)
    } else if (isTRUE(checkmate::check_function(fmt))) {
        out <- fmt_function(fmt)
    } else if (isTRUE(checkmate::check_null(fmt))) {
        out <- fmt_identity()
    }
    return(out)
}