R Package Loader

loader.r

load.fun <- function(x) { 
  x <- as.character(x) 
  if(isTRUE(x %in% .packages(all.available=TRUE))) { 
    eval(parse(text=paste("require(", x, ")", sep=""))) 
	print(paste(c(x, " : already installed; requiring"), collapse=''))
  } else { 
	if(x == "twitteR"){
		print(paste(c(x, " : not installed; installing"), collapse=''))
		install_github("twitteR", username="geoffjentry")
		print(paste(c(x, " : installed and requiring"), collapse=''))
		eval(parse(text=paste("require(", x, ")", sep=""))) 
	} else {
    #update.packages()
		print(paste(c(x, " : not installed; installing"), collapse=''))
		eval(parse(text=paste("install.packages('", x, "')", sep=""))) 
		print(paste(c(x, " : installed and requiring"), collapse=''))
		eval(parse(text=paste("require(", x, ")", sep=""))) 
	}
  } 
}