Nothing
################################################################################
.onLoad <- function(libname, pkgname) {
pkg.opt <- list(
bigstatsr.ncores.max = parallel::detectCores(),
bigstatsr.check.parallel.blas = TRUE
)
toset <- !(names(pkg.opt) %in% names(.Options))
if (any(toset)) options(pkg.opt[toset])
}
################################################################################
.onUnload <- function(libpath) {
options(
default.nproc.blas = NULL
)
}
################################################################################
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.