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