cran bioconductor mirror speed test

mirror_test.R

options(timeout = 10)
cranometer <- function(ms = getCRANmirrors(all = FALSE, local.only = FALSE),...){
   dest = tempfile()
   
   nms = dim(ms)[1]
   ms$t = rep(NA,nms)
   for(i in 1:nms){
      m = ms[i,]
      url = paste(m$URL,"src/base/NEWS",sep="")
      t = try(system.time(download.file(url,dest),gcFirst=TRUE))
      if(file.exists(dest) && file.info(dest)$size > 0){
         ms$t[i] = t['elapsed']
      }else{
         ms$t[i] = NA
      }
      if(file.exists(dest)){
         file.remove(dest)
      }
   }
   
   ms$t <- as.numeric(ms$t)
   ms <- na.omit(ms)
   return(ms)
}

# this can take some time
x <- cranometer()

time_order <- order(x$t)

# a quick overview of the fastest mirrors
head(x[time_order,c(1:4, 9)], 20)

bioconductor_mirror_test <- function(ms = read.csv("https://bioconductor.org/BioC_mirrors.csv"), ...) {
  dest = tempfile()
  
  nms = nrow(ms)
  ms$t = rep(NA, nms)
  
  for (i in 1:nms) {
    m = ms[i, ]
    url = paste(m$URL, "packages/release/bioc/index.html", sep = "")
    t = try(system.time(download.file(url, dest), gcFirst = TRUE))
    
    if (file.exists(dest) && file.info(dest)$size > 0) {
      ms$t[i] = t['elapsed']
    } else {
      ms$t[i] = NA
    }
    
    if (file.exists(dest)) {
      file.remove(dest)
    }
  }
  
  ms$t <- as.numeric(ms$t)
  ms <- na.omit(ms)
  return(ms)
}

results <- bioconductor_mirror_test()

time_order <- order(results$t)

# a quick overview of the fastest mirrors
head(results[time_order,c(1:4, 9)], 20)

#chooseCRANmirror()
#chooseBioCmirror()