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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.