R/zzz.R

In MadeInR/store: Store and Fetch Values (key value pairs)

store_default_options <- list(
  store.rsession = list(),
  store.internal = list()
)

.onLoad <- function(libname, pkgname) {
  op <- options()
  toset <- !(names(store_default_options) %in% names(op))
  if(any(toset)) options(store_default_options[toset])

  storage_method("session")

  invisible()
}

.onUnload <- function(libname, pkgname){

  clean_session()
  clean_session(internal = T)

  invisible()
}