R/startup.R

In ben-arnold/washb: Internal WASH Benefits Function Package

#'washb Package loading startup function
#'
#'
#' @export

.onAttach <- function(...) {
  packageStartupMessage('Welcome to the washb package')
  packageStartupMessage('Version: ', utils::packageDescription('washb')$Version)
  packageStartupMessage('Created on ', utils::packageDescription('washb')$Date)
  packageStartupMessage("\nThis software was developed with funding from the\nBill & Melinda Gates Foundation (grant number OPPGD759).\n\nThe package's reference manual and vignette are also online:\nhttps://ben-arnold.github.io/washb\n")
}

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.devtools <- list(
    devtools.path = "~/washb",
    devtools.install.args = "",
    devtools.name = "Ben Arnold",
    devtools.desc.author = '"Ben Arnold <benarnold@berkeley.edu> [aut, cre]"',
    devtools.desc.license = "Creative Commons Attribution 3.0 Unported License",
    devtools.desc.suggests = NULL,
    devtools.desc = list()
  )
  toset <- !(names(op.devtools) %in% names(op))
  if(any(toset)) options(op.devtools[toset])

  invisible()
}