for (mirror.name in names(mirrors)) {
mirror.url<-mirrors[mirror.name]
message(paste("Updating list of available R packages from ",mirror.name," [",mirror.url,"].\n",sep=""))
packages.retrieved <- NULL
if ("CRAN" == mirror.name) {
for (mirror.name in names(mirrors)) {
mirror.url<-mirrors[mirror.name]
message(paste("Updating list of available R packages from ",mirror.name," [",mirror.url,"].\n",sep=""))
packages.retrieved <- NULL
if ("CRAN" == mirror.name) {