R/futureverse_packages.R

In futureverse: Easily Install and Load the 'Futureverse'

#' List all packages in the Futureverse
#'
#' @param include_self Include **futureverse** in the list?
#'
#' @return
#' Returns a character vector of package names.
#'
#' @examples
#' futureverse_packages()
#'
#' @importFrom utils packageDescription packageVersion
#' @export
futureverse_packages <- function(include_self = TRUE) {
  raw <- packageDescription(.packageName)$Imports
  imports <- strsplit(raw, split = ",", fixed = TRUE)[[1]]
  parsed <- gsub("^\\s+|\\s+$", "", imports)
  names <- vapply(strsplit(parsed, "\\s+"), FUN = `[[`, 1, FUN.VALUE = NA_character_)

  if (include_self) {
    names <- c(names, .packageName)
  }

  names
}