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)
  }
}