R/zzz.R

In PredictiveEcology/map: Defines a meta class of geographical objects, the 'map' class, and associated tools

.onLoad <- function(libname, pkgname) {
  opts <- options()
  opts.map <- list( # nolint
    map.overwrite = FALSE,
    map.tilePath = file.path("tiles"),
    map.dataPath = file.path("data"),
    map.maxNumCores = min(
      getOption("Ncpus"),
      parallelly::availableCores(constraints = "connections")
    ),
    map.useParallel = !identical("windows", .Platform$OS.type)
  )
  toset <- !(names(opts.map) %in% names(opts))
  if (any(toset)) options(opts.map[toset])

  ## import functions using backports:
  backports::import(pkgname, "isFALSE")
}