| ### This needs a full local CRAN mirror or Internet access |
| |
| .ptime <- proc.time() |
| |
| ## look up CRAN mirror in the same way the functions do. |
| mirror <- tools:::CRAN_baseurl_for_web_area() |
| message("Using CRAN mirror ", sQuote(mirror)) |
| |
| ## Sanity check |
| options(warn = 1) |
| foo <- tryCatch(readLines(paste0(mirror, "/web/packages")), |
| error = function(e) { |
| message(conditionMessage(e)) |
| cat("Time elapsed: ", proc.time() - .ptime,"\n") |
| ## q("no") |
| }) |
| |
| library(tools) |
| example("CRAN_package_db", run.donttest = TRUE) |
| |
| cat("Time elapsed: ", proc.time() - .ptime,"\n") |