R/zzz.R

Defines functions .onLoad

.onLoad <- function(libname, pkgname) {
  debug <- isTRUE(as.logical(Sys.getenv("R_PROGRESSR_DEBUG", "FALSE")))
  if (debug) options(progressr.debug = TRUE)
  debug <- getOption("progressr.debug", debug)

  ## Set package options based on environment variables
  update_package_options(debug = debug)

  ## Record the process ID (PID) when the package is loaded
  is_fork_child()
  
  ## R CMD check
  if (in_r_cmd_check()) {
    options(progressr.demo.delay = 0.0)
  }

  ## R CMD build
  register_vignette_engine_during_build_only(pkgname)

  ## Register a global progression handler on load?
  if (isTRUE(getOption("progressr.global.handler", FALSE))) {
    ## UPDATE It is not possible to register a global calling handler when
    ## there is already an active condition handler as it is here because
    ## loadNamespace()/library() uses tryCatch() internally.  If attempted,
    ## we'll get an error "should not be called with handlers on the stack".
    ## /HB 2020-11-19
#    register_global_progression_handler()
  }
}
HenrikBengtsson/progressr documentation built on Jan. 26, 2024, 12:18 p.m.