R: 3.2.4 -> 3.3.2

This commit is contained in:
Justin Bedo
2017-02-24 15:22:12 +11:00
parent c34a52bf5d
commit 4bb8727284
8 changed files with 6662 additions and 4430 deletions
@@ -4,7 +4,7 @@ library(parallel)
cl <- makeCluster(10)
rVersion <- paste(R.Version()$major, strsplit(R.Version()$minor, ".", fixed=TRUE)[[1]][1], sep=".")
snapshotDate <- Sys.Date()
snapshotDate <- Sys.Date()-1
mirrorUrls <- list( bioc=paste0("http://bioconductor.statistik.tu-dortmund.de/packages/", rVersion, "/bioc/src/contrib/")
, "bioc-annotation"=paste0("http://bioconductor.statistik.tu-dortmund.de/packages/", rVersion, "/data/annotation/src/contrib/")
@@ -45,16 +45,20 @@ nixPrefetch <- function(name, version) {
}
formatPackage <- function(name, version, sha256, depends, imports, linkingTo) {
name <- ifelse(name == "import", "r_import", name)
attr <- gsub(".", "_", name, fixed=TRUE)
options(warn=5)
depends <- paste( if (is.na(depends)) "" else gsub("[ \t\n]+", "", depends)
, if (is.na(imports)) "" else gsub("[ \t\n]+", "", imports)
, if (is.na(linkingTo)) "" else gsub("[ \t\n]+", "", linkingTo)
, sep=","
)
depends <- unlist(strsplit(depends, split=",", fixed=TRUE))
depends <- sapply(depends, gsub, pattern="([^ \t\n(]+).*", replacement="\\1")
depends <- sapply(depends, gsub, pattern=".", replacement="_", fixed=TRUE)
depends <- lapply(depends, gsub, pattern="([^ \t\n(]+).*", replacement="\\1")
depends <- lapply(depends, gsub, pattern=".", replacement="_", fixed=TRUE)
depends <- depends[depends %in% knownPackages]
depends <- lapply(depends, function(d) ifelse(d == "import", "r_import", d))
depends <- paste(depends)
depends <- paste(sort(unique(depends)), collapse=" ")
paste0(" ", attr, " = derive2 { name=\"", name, "\"; version=\"", version, "\"; sha256=\"", sha256, "\"; depends=[", depends, "]; };")
}