R/S3_classes_general_helpers.R

In markalava/ccmppWPP: Cohort Component Population Projection

S3_class_message <- function(...) {
    if (!getOption("ccmppWPP.suppress_S3_class_messages", default = FALSE))
        message(...)
    invisible()
    }

S3_class_warning <- function(...) {
    if (!getOption("ccmppWPP.suppress_S3_class_warnings", default = FALSE))
        warning(..., call. = FALSE)
    invisible()
    }