.First <- function() {
##  message("R is the best\n","working directory is:", getwd())
}

## Set CRAN mirror:
local({
  r <- getOption("repos")
  r["CRAN"] <- "https://cloud.r-project.org/"
  options(repos = r, Ncpus = 8)
})