R/load_pkg.R

In willbernascimento/ShinobiTools: Hands-On R functions for daily data manipulation that every shinobi needs

#' Load frequent used packages.
#'
#' The package pass two argments x and y. x is a vector with packages that user plan to load. y is a logical vector, where TRUE load a default package list from developer.
#' You need chosse Y TRUE or FALSE. If x do not specified, the package load a list of default packages.
#' @param x A string vector of packages names (optional).
#' @param y Logical. If TRUE load the default package list (dplyr, ggplot2,ggthemes, reshape2, electionsBR)
#' @export load_pkg
#' @return Packages loaded.
#' @examples
#' load_pkg(x=c('tools', 'curl'),y=FALSE)
#'

load_pkg <- function(x,y){ # take 2 args, y is necessary

  # load x packages listed by the user AND y defaults packages
  if(!missing(x) & y==TRUE){
    user_pkg = x
    def_pkg = base::c('dplyr', 'reshape2', 'ggplot2','ggthemes','electionsBR')
    all_pkg = base::c(user_pkg, def_pkg)
    print(all_pkg)
    for(i in 1:length(all_pkg)){
      base::library(all_pkg[i], character.only = T)}

  # load ONLY X packages listed by user
  }else if (!missing(x) & y==FALSE){
    user_pkg <- x
    for(i in 1:length(user_pkg)){
      base::library(user_pkg[i], character.only = T)}

  # load ONLY y defaults packages OBS: DO NOT USE X ARG
  } else if(missing(x) & y==TRUE){
    def_pkg = base::c('dplyr', 'reshape2', 'ggplot2','ggthemes','electionsBR')
    for(i in 1:length(def_pkg)){
      base::library(def_pkg[i], character.only = T)}

  # print Warning message for incorrect usage.
    }else{
        warning('You need take a look in ?load_pkg')
      break()
      }
}