R/pkgs.R

In toddellis/miao: Miao! Miauw! Miaow! Miaou! Mjau! Meow!

#' pkgs
#'
#' Install and/or load any necessary libraries, or skip if they are already loaded.
#'
#' @param packages Single character or character vector with package/library names
#' @param quiet Logical whether to show which packages were installed, loaded, or skipped, as well as their version numbers.
#' @param repos Specified repo web address to attempt to pull uninstalled libraries from.
#'
#' @return Environmental conditions: Installs and/or loads libraries where necessary.
#' @export
#'
#' @examples
#' \dontrun{
#' miao::pkgs(c('toddellis/miao', 'tidyverse'))
#' }

pkgs <- pckgs <- function(packages,
                          quiet = FALSE,
                          repos = c("https://cloud.r-project.org")) {

  .error = FALSE

  for (package in packages) {
    ## SKIP CHECK ####
    if (stringr::str_detect(package, "[/]")) {
      .address <- package
      .package <- stringr::str_remove(package, "[A-z0-9-&!@#$%^*]++/")
    } else {
      .address <- .package <- package
    }

    ## Check if package is both installed and loaded
    if (.package %in% .packages() & quiet == FALSE) {
      print(paste0("..............Skipping library: ", .package, " (", packageVersion(.package), ")"))
      ## LOAD CHECK ####
      ## Check if package is installed but not loaded
    } else if (.package %in% rownames(installed.packages())) {
      suppressWarnings(suppressPackageStartupMessages(library(.package,
                                                              quietly = TRUE,
                                                              character.only = TRUE,
                                                              warn.conflicts = FALSE)))
      if (quiet == FALSE) {
        print(paste0("...............Loading library: ", .package, " (", packageVersion(.package), ")"))
      }
    } else {
      ## INSTALL CHECK ####
      ## Install and load package if it is not installed
      if (is.na(repos) || is.null(repos)) {
        if (stringr::str_detect(.address, "[/]")) {
          tryCatch({
            devtools::install_github(.address)
          },
          warning = function(cond) {},
          error = function(cond) {
            print(paste0("Failed in install ", .package, " from https://www.github.com/", .address, ". Check package and account name."))
          })
        } else {
          install.packages(.package)
        }
      } else {
        if (stringr::str_detect(.address, "[/]")) {
          tryCatch({
            devtools::install_github(.address)
          },
          warning = function(cond) {},
          error = function(cond) {
            .error = TRUE
            print(paste0("Failed in install ", .package, " from https://www.github.com/", .address, ". Check package and account name."))
          })
        } else {
          install.packages(.package,
                           repos = repos,
                           dependencies = NA,
                           type = getOption("pkgType"))
        }
      }
      if (!.error) {
        suppressWarnings(suppressPackageStartupMessages(library(.package,
                                                                quietly = TRUE,
                                                                character.only = TRUE,
                                                                warn.conflicts = FALSE)))
        if (quiet == FALSE) {
          print(paste0("Installing and loading library: ", .package, " (", packageVersion(.package), ")"))
        }
      } else {
        .error = FALSE
      }

    }
  }
}