R/zzz.R

In iamamutt/datavyur: Working with 'Datavyu' Data

# Load options ------------------------------------------------------------
.onLoad <- function(libname, pkgname) {
  op <- options()
  dv.ops <- list(
    datavyur.folder=datavyur_internal_data(),
    datavyur.classlist=list()
  )
  toset <- !(names(dv.ops) %in% names(op))
  if (any(toset)) options(dv.ops[toset])
  return(invisible())
}