2021-04-24 00:19:28 -04:00
|
|
|
## .First <- function() {
|
2021-02-15 20:53:16 -05:00
|
|
|
## message("R is the best\n","working directory is:", getwd())
|
2021-04-24 00:19:28 -04:00
|
|
|
## }
|
|
|
|
|
|
|
|
|
|
## TODO make this find .Rprofiles in parent directories
|
|
|
|
|
if ( ".Rprofile" %in% list.files(all.files = TRUE) ) {
|
|
|
|
|
message("Sourcing local .Rprofile")
|
|
|
|
|
source(".Rprofile")
|
2021-02-15 20:53:16 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
## Set CRAN mirror:
|
|
|
|
|
local({
|
|
|
|
|
r <- getOption("repos")
|
|
|
|
|
r["CRAN"] <- "https://cloud.r-project.org/"
|
|
|
|
|
options(repos = r, Ncpus = 8)
|
|
|
|
|
})
|
