R/zzz.R

In sigbertklinke/mmstat4: Access to Teaching Materials from a ZIP File or GitHub

mmstat            <- new.env(parent=emptyenv())
mmstat$data       <- list()
mmstat$lang       <- list()
mmstat$notes      <- character()
mmstat$repository <- list()
mmstat$version    <- '22.2'
mmstat$install    <- c("R"=FALSE, "py"=FALSE)
#
repolist <- paste0(rappdirs::user_data_dir('mmstat4'), '/repositories.rds')
if (file.exists(repolist)) mmstat$repository <- readRDS(repolist)
if (length(mmstat$repository)==0) {
  mmstat$repository <- list(
    hu.data=list(url="https://github.com/sigbertklinke/mmstat4.data/archive/refs/heads/main.zip",
                 dir=tempdir(),
                 venv="mmstat4.hu.data"),
    hu.stat=list(url="https://github.com/sigbertklinke/mmstat4.stat/archive/refs/heads/main.zip",
                 dir=tempdir(),
                 venv="mmstat4.hu.stat"),
    dummy=list(url="https://github.com/sigbertklinke/mmstat4.dummy/archive/refs/heads/main.zip",
               dir=tempdir(),
               venv="mmstat4.dummy"))
  mmstat$repo <- names(mmstat$repository)[1]
}

.onLoad <- function(libname, pkgname) {
  # colors
  options(mmstat.col.population = 'green',
          mmstat.col.sample     = 'orange',
          mmstat.ext.doc        = c('html', 'pdf'),
          mmstat.ext.python     = c('py', 'py3'),
          mmstat.ext.prg        = c('', 'r', 'rmd', 'ma', 'py')
  )
  #
  local <- system.file('zip', 'mmstat4.dummy.zip', package = "mmstat4")
  if (file.exists(local)) {
    mmstat$repository[['local']] <- list(url=local,
                                         dir=tempdir(),
                                         venv="mmstat4.local")
  }
  # if (!'r-reticulate' %in% reticulate::virtualenv_list()) warning('Virtual environment `r-reticulate` is missing, run `r_reticulate()`')
}

.onAttach <- function(libname, pkgname) {
  packageStartupMessage('See the package vignette with `vignette("mmstat4")`')
}