···

       
16
       
16
       
 
       
biocVersion <- BiocManager:::.version_map()

     

       
17
       
17
       
 
       
biocVersion <- biocVersion[biocVersion$R == getRversion()[, 1:2],c("Bioc", "BiocStatus")]

     

       
18
       
18
       
 
       
if ("release" %in% biocVersion$BiocStatus) {

     

       
19
       
19
       
-
       
  biocVersion <-  as.numeric(as.character(biocVersion[biocVersion$BiocStatus == "release", "Bioc"]))

     

       
19
       
19
       
+
       
  biocVersion <-  as.character(biocVersion[biocVersion$BiocStatus == "release", "Bioc"])

     

       
20
       
20
       
 
       
} else {

     

       
21
       
21
       
-
       
  biocVersion <-  max(as.numeric(as.character(biocVersion$Bioc)))

     

       
21
       
21
       
+
       
  biocVersion <-  max(as.character(biocVersion$Bioc))

     

       
22
       
22
       
 
       
}

     

       
23
       
23
       
 
       


     

       
24
       
24
       
 
       
mirrorUrls <- list( bioc=paste0("http://bioconductor.org/packages/", biocVersion, "/bioc/src/contrib/")

     
···

       
115
       
115
       
 
       
cat(toJSON(list(extraArgs=extraArgs, packages=c(pkgs, brokenPkgs)), pretty=TRUE))

     

       
116
       
116
       
 
       
cat("\n")

     

       
117
       
117
       
 
       
write("done", stderr())

     

       
118
       
118
       
-