R/zzz.R

In DataSlingers/MoMA: MoMA - Modern Multivariate Analysis in R

.onAttach <- function(...) { # nocov start
    if (interactive()) {
        msg <- c(
            "Thank you for using MoMA!",
            "The current logging level is",
            sQuote(paste0(moma_logger_level(), ".")),
            "To change this, see ?moma_logging."
        )

        packageStartupMessage(paste(msg, collapse = " "))
    }
} # nocov end