setwd("~/Analysis/EmAnalise/UpdateR")
tmpInstall <-as.data.frame(installed.packages()[,c("Package", "Priority")])
toInstall <- subset(tmpInstall, Priority != "base" | is.na(Priority))
write.table(toInstall[['Package']], file="oldPackages.txt", row.names=FALSE)

configFileNames <- c("Rconsole", "Rprofile.site")
configFiles <- paste(path.expand(R.home("etc")),configFileNames,sep="/")

file.copy(configFiles, ".", overwrite = TRUE)