R/package_loader.R

In jeffreyat/M2EFM: M2EFM

## @knitr load_it
#' Loads a character vector of packages, installing them from Bioconductor if necessary.
#' This will also load most CRAN packages.
#'  
#' @title load_it
#' @name load_it
#' @param pack -- A vector of character strings containing package names.
#' @return nothing
#' @export
#'
load_it = function(pack, update=FALSE) {
	invisible(sapply(pack, function(package) {
		if(!require(package, quietly=T, character.only=T)){
				if(length(find("biocLite")) < 1) {
						source("http://bioconductor.org/biocLite.R")
				}
				if(update) {
						biocLite(package)	
				} else {
						biocLite(package, suppressUpdates=TRUE)
				}

				library(package, quietly=T, character.only=T)
			}
		}))
} #end load_it