R/install_load_packages.R

In busaradata/busara: Steven's Automated Data Analytics

#' A function  that loads installed  packages and loads and installs those not installed.

#' @param x A vector of all the packages you want to install or load


#'
#' @examples
#' load_install_packages(c("tidyverse","knitr"))
#'
#' @export

load_install_packages <- function(x){
  for (i in x ) {
    if (suppressWarnings(suppressMessages(!require( i , character.only  =  TRUE )))) {
      install.packages(i , dependencies  =  TRUE )
      suppressWarnings(suppressMessages(require( i , character.only  =  TRUE )))
    }
  }
}

#load_install_packages(c("tidyverse","knitr","ggthemes","kableExtra", "readxl","plyr","readstata13","sjPlot","summarytools","plotly","fcuk","questionr","oddsratio","Hmisc", "lubridate"))