rPackages: fixed script to generate rPackages set

This commit is contained in:
Bruno Rodrigues 2024-12-27 00:22:16 +01:00 committed by Justin Bedo
parent 36f1e00474
commit 5228a3f83a
No known key found for this signature in database
GPG key ID: 2C18202C56C182BD

View file

@ -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())