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