rPackages: fixed script to generate rPackages set

pkgs/development/r-modules/generate-r-packages.R

@@ -16,9 +16,9 @@ locale <- Sys.setlocale(locale = "C")
 biocVersion <- BiocManager:::.version_map()
 biocVersion <- biocVersion[biocVersion$R == getRversion()[, 1:2],c("Bioc", "BiocStatus")]
 if ("release" %in% biocVersion$BiocStatus) {
-  biocVersion <-  as.numeric(as.character(biocVersion[biocVersion$BiocStatus == "release", "Bioc"]))
+  biocVersion <-  as.character(biocVersion[biocVersion$BiocStatus == "release", "Bioc"])
 } else {
-  biocVersion <-  max(as.numeric(as.character(biocVersion$Bioc)))
+  biocVersion <-  max(as.character(biocVersion$Bioc))
 }
 
 mirrorUrls <- list( bioc=paste0("http://bioconductor.org/packages/", biocVersion, "/bioc/src/contrib/")
@@ -115,4 +115,3 @@ if (mirrorType != "cran") {
 cat(toJSON(list(extraArgs=extraArgs, packages=c(pkgs, brokenPkgs)), pretty=TRUE))
 cat("\n")
 write("done", stderr())
-