R/zzz.R

In gfkse/bettermc: Enhanced Fork-Based Parallelization

OSTYPE <-
  if (startsWith(tolower(Sys.info()["sysname"]), "linux")) {
    "linux"
  } else if (startsWith(tolower(Sys.info()["sysname"]), "darwin")) {
    "macos"
  } else if (startsWith(tolower(Sys.info()["sysname"]), "sunos")) {
    "solaris"
  } else if (startsWith(tolower(Sys.info()["sysname"]), "windows")) {
    "windows"
  } else {
    stop("This does not look like a Linux, Solaris, macOS or Windows. Aborting.")
  }

.onAttach <- function(libname, pkgname) {
  if (OSTYPE == "windows") {
    packageStartupMessage("Many of the features of the bettermc-package are not supported on Windows. ",
                          "Please consult the 'Windows Support'-sections in the help pages for more details.")
  }
}

.onLoad <- function(libname, pkgname) {
  # work around for an issue with source references and lazy loading as discussed in
  # https://stat.ethz.ch/pipermail/r-devel/2021-April/080599.html
  crash_dumps <<- new.env()

  parallel_mclapply <<- parallel::mclapply
}