From 5228a3f83a476a50b3be5b674ce12d2f16673b59 Mon Sep 17 00:00:00 2001 From: Bruno Rodrigues Date: Fri, 27 Dec 2024 00:22:16 +0100 Subject: [PATCH] rPackages: fixed script to generate rPackages set --- pkgs/development/r-modules/generate-r-packages.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/pkgs/development/r-modules/generate-r-packages.R b/pkgs/development/r-modules/generate-r-packages.R index fb15ec40ad22..57f55a6eb65b 100755 --- a/pkgs/development/r-modules/generate-r-packages.R +++ b/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()) -