R/install_new.R

In jrminter/statshelpR: Convenience functions for statistical analysis

#' Install a new package
#' 
#' @param pkg String. The package to install
#' @param repo Sring, Repository. Default: 'http://cran.revolutionanalytics.com/'
#' @param lib Library. Default: .Library
#' 
#' @export
#' 
#' @examples
#' library(statshelpR)
#' install_new("scales")

install_new <- function(pkg,
                        repo = "http://cran.revolutionanalytics.com/",
                        lib = .Library){
  if (pkg %in% installed.packages()){
    str.line <- paste0("Package ", pkg, " already installed \n")
    cat(str.line)
  }else{
    utils::install.packages(pkg,
                            repos = repo,
                            dep = TRUE, lib = lib)
    str.line <- paste0("Package ", pkg, " not found, so installing with dependencies... \n")
    cat(str.line)
    cat("Press CTRL C to abort.\n")
    cat()
    Sys.sleep(5)
  }
}