R/AAA__onLoad.R

In rsaporta/rsutils: RS Utilities Parent Package

.onLoad <- function(libname, pkgname) {
  verbose <- getOption("verbose.rsutils_load"
                      , default = getOption("verbose.rsutils_load"
                         , default = TRUE))

  if (verbose)
    packageStartupMessage(sprintf("Running .onLoad() from %-16s --------------------------- ================================ ||\n", pkgname))

  installing <- getOption("rsutils.installing", default = FALSE)
  
  if (!installing) {
    try(require(colorout,   quietly=TRUE))
    try(require(data.table, quietly=TRUE))
    try(require(dplyr,      quietly=TRUE))
    try(require(magrittr,   quietly=TRUE))

    if (getOption("rsutils.load_on_startup", default=TRUE))
      load_rsutils(rsutils_load=FALSE)

  }
}