local({
  r <- getOption("repos")
  r["CRAN"] <- "https://cloud.r-project.org/"
  options(repos = r)
})

message("Default repo replaced with 'https://cloud.r-project.org/'")
