R/get_names_of_used_packages.R

In KWB-R/kwb.code: Analyse Your R Code!

# get_names_of_used_packages ---------------------------------------------------

#' Get Names of Packages Used in R-Scripts
#'
#' @param root_dir directory in which to look recursively for R-scripts
#' @param pattern regular expression matching the names of the files to be
#'   considered
#'
#' @importFrom kwb.utils catAndRun
#' @importFrom kwb.utils extractSubstring
#' @importFrom kwb.utils multiSubstitute
#' 
#' @export
#'
get_names_of_used_packages <- function(root_dir, pattern = "[.][rR](md)?$")
{
  script_paths <- list.files(
    root_dir, pattern, full.names = TRUE, recursive = TRUE
  )

  package_usages <- lapply(script_paths, function(file) catAndRun(
    paste("Analysing", file),
    grep("library", readLines(file), value = TRUE)
  ))

  usage_lines <- sort(unique(unlist(package_usages)))

  package_names <- extractSubstring("library\\(([^)]+)\\)", usage_lines, 1L)

  packages <- sort(unique(multiSubstitute(package_names, list(
    "^\"|\"$" = "",
    "[\",].*$" = ""
  ))))

  packages[packages != ""]
}