R/package-related.R

In TheZetner/utilitarian: Utilitarian: A Selection of Useful R Functions

# Library and package related functions

#' Package installing and loading function
#'
#' The usePackage function takes a single command, the name of a package,
#' and will install it, if not already installed, and then load it.
#' Taken from \url{https://github.com/sussyfuss/usefulScripts}
#' @param p A package name as a string in quotes.
#' @param repos Defaults to US cran otherwise put a cran mirror in as character
#' @keywords use package
#' @import utils
#' @export
#' @examples
#' \donttest{ usePackage("readr") }

usePackage <- function(p, repos = "http://cran.us.r-project.org") {

  if (!is.element(p, installed.packages()[, 1])) {

    message(paste("Package", p, "not found, installing..."))
    install.packages(p, dependencies = TRUE, repos = repos)

  }

  message(paste0("Loading Package ", p, "..."))
  require(p, character.only = TRUE)

}

#' Call multiple library statements at once
#'
#' Attach a number of library packages at once
#' @author Adrian Zetner
#' @importFrom dplyr enquos
#'
#' @param ... Package names
#' @param verbose Logical whether to announce via message() what packages are being attached.
#' @param quoted Logical whether package names supplied bare or quoted as character
#' @keywords utilitarian library packages
#' @export
#' @examples
#' \donttest{
#' libraries(grid, jsonlite)
#' libraries("grid", "jsonlite", quoted = TRUE)
#' libraries(c("grid", "jsonlite"), quoted = TRUE)
#' libraries(grid, verbose = TRUE)
#' }


libraries <- function(..., verbose = F, quoted = F) {
  if (quoted) {
    pkgs <- unlist(list(...))
  } else {
    pkgs <- gsub("~", "", as.character(enquos(...)))
  }
  if (verbose) {
    sapply(pkgs, library, character.only = T)
    message(paste("Attached packages:",
                  paste(pkgs, collapse = ", ")))
  } else{
    sink(tempfile(), type = c("output", "message"))
    sapply(pkgs, library, character.only = T)
    sink()
    }
}