minor touchup to reference version checker

Author: eddelbuettel

vignettes/getCurrentVersionsOfCitedPackages.R

@@ -6,11 +6,12 @@ con <- pipe(cmd)
 pkgs <- readLines(pipe(cmd))
 close(con)
 
-repo <- "http://cran.rstudio.com"
+repo <- "https://cloud.r-project.org"
 AP <- available.packages(contrib.url(repo),filter=list())	# available package at CRAN
 
 res <- as.data.frame(do.call(rbind, lapply(pkgs, function(p) {
     ind <- which(AP[,"Package"] == p)
+    if (length(ind) > 1) ind <- ind[1]
     AP[ind, c("Package", "Version")]
 })))
 print(res)