old_2014_version_of_archivist/R/zzz.R

In pbiecek/archivist2: Tools for Storing, Restoring and Searching for R Objects

.ArchivistEnv <- new.env()

.onDetach <- function(libpath) {
  if (".backpack" %in% ls(.ArchivistEnv)) {
    tmp <- get(".backpack", envir = .ArchivistEnv)
    if (!is.null(tmp)) {
      dbDisconnect(tmp)
      assign(".backpack", NULL, envir = .ArchivistEnv)
    }
  } 
}