R/onAttach.R

prev_env <- new.env(parent = emptyenv())

.onAttach <- function(libname, pkgname) {
  prev_env$prev <- getOption("error")   # nocov
  options(error = dumper)               # nocov
}

.onDetach <- function(libpath) {
  options(error = prev_env$prev)        # nocov
}
MangoTheCat/tracer documentation built on May 8, 2019, 3:51 p.m.