R/format_msg.R

Defines functions format_msg

format_msg <- function(x) {
    x <- strsplit(x, split = "\n")[[1]]
    x <- trimws(x)
    x <- paste0("\n", paste(x, collapse = "\n"), "\n")
    return(x)
}
vincentarelbundock/gtsummary documentation built on Nov. 6, 2024, 11:07 p.m.