git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@343
edb9625f-4e0d-4859-8d74-
9fd3b1da38cb
mirrors <- NULL
mirrors <- c(mirrors,CRAN='http://cran.r-project.org')
mirrors <- NULL
mirrors <- c(mirrors,CRAN='http://cran.r-project.org')
-#mirrors <- c(mirrors,BioC='http://www.bioconductor.org/packages/2.7')
+#mirrors <- c(mirrors,BioC='http://www.bioconductor.org/packages/2.2')
+mirrors <- c(mirrors,BioC='http://www.bioconductor.org/packages/2.7')
for (mirror.name in names(mirrors)) {
mirror.url<-mirrors[mirror.name]
for (mirror.name in names(mirrors)) {
mirror.url<-mirrors[mirror.name]
if ("CRAN" == mirror.name) {
packages.retrieved <- available.packages(contrib.url(mirror.url))
} else if ("BioC" == mirror.name) {
if ("CRAN" == mirror.name) {
packages.retrieved <- available.packages(contrib.url(mirror.url))
} else if ("BioC" == mirror.name) {
- for (s in c('bioc')) {
- packages.retrieved <- rbind(packages.retrieved,contrib.url(available.packages(paste(mirror.url,s,sep="/"))))
+ repos <- c(
+ "bioc"
+ ,"data/annotation"
+ ,"data/experiment"
+ ,"extra"
+ )
+ for (s in repos) {
+ packages.retrieved <- rbind(
+ packages.retrieved,
+ available.packages(contrib.url(paste(mirror.url,s,sep="/")))
+ )
}
} else {
packages.retrieved <- available.packages(mirror.url)
}
} else {
packages.retrieved <- available.packages(mirror.url)
cat("The following base packages were determined:\n")
print(base_pkgs)
}
cat("The following base packages were determined:\n")
print(base_pkgs)
}