set_r_dirs.R

r_local_dir <- file.path('C:', 'R')
r_tmp_dir <- file.path(r_local_dir, 'tmp')
r_inst_dir <- file.path(r_local_dir, 'win-library', '4.0')
dir.create(r_tmp_dir, recursive=TRUE)
dir.create(r_inst_dir, recursive=TRUE)
r_user_dir <- Sys.getenv('R_USER')
r_env_fn <- file.path(r_user_dir, '.Renviron')
write(paste("TMPDIR='", r_tmp_dir, "'", sep=''), r_env_fn)
write(paste("R_LIBS_USER='", r_inst_dir, "'", sep=''), r_env_fn, append=TRUE)

set_r_locales.R

r_user_dir <- Sys.getenv('R_USER')
r_profile_fn <- file.path(r_user_dir, '.Rprofile')
write('Sys.setenv(LANG = "en")', r_profile_fn, append=TRUE)
write('Sys.setlocale("LC_ALL", "English")', r_profile_fn, append=TRUE)