R/utils_warn.R

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

warn_once <- function(msg, id) {
    id <- paste0("modelsummary_warning_", id)
    msg <- paste(msg, "This warning appears once per session.")
    if (isTRUE(getOption(id, default = TRUE))) {
        warning(msg, call. = FALSE)
        opts <- list(FALSE)
        names(opts) <- id
        options(opts)
    }
}