R/zzz.R

In rogiersbart/RMODFLOW: Pre- and post-processing of MODFLOW files

.onLoad <- function(libname, pkgname) {
  opts <- options()
  opts.RMODFLOW <- list(
    RMODFLOW.path = file.path(system.file(package = "RMODFLOW"), "code"),
    RMODFLOW.ui = "verbose",
    RMODFLOW.theme = "RMODFLOW"
  )
  toset <- !(names(opts.RMODFLOW) %in% names(opts))
  if(any(toset)) options(opts.RMODFLOW[toset])
  invisible()
}

.onAttach <- function(libname, pkgname) {
  rui::alert("{{RMODFLOW}} is still in its experimental lifecycle stage.")
  rui::alert("Use at your own risk, and submit issues here:")
  rui::alert("{.url https://github.com/rogiersbart/RMODFLOW/issues}")
  invisible()
}

# options
# path: enable users to set the code installation directory
# ui: allow for a hierarchy of verbosity
#   verbose: everything
#   quiet: only warn and code output
#   silent: only code output
#   none: nothing
# theme: ggplot2 theme, scales and template
#   RMODFLOW: recommended theme, encouraging users to tweak things
#   ggplot2: ggplot2 default behaviour

# TODO: this has to enter documentation somewhere!