R/zzz.R

.onLoad <- function(libname, pkgname) {
    cl <- parallel::makeCluster(parallel::detectCores(), type="SOCK")
    doSNOW::registerDoSNOW(cl)
    op <- options()
    op.elmnet <- list(

    )
    toset <- !(names(op.elmnet) %in% names(op))
    if (any(toset))
        options(op.elmnet[toset])

    invisible()
}

.onAttach <- function(libname, pkgname) {
    packageStartupMessage("ELMnet version 0.9.1")
}
davidnexer/elmnet documentation built on May 15, 2019, 1:15 a.m.