R/lib_search.R

In UBC-MDS/LibRely-R-: Meta analysis and documentation of R scripts

#' Find dependant packages
#'
#' Input a R script to find all the dependant packages used and create a character vector with all of their names.
#'
#' @param path a .R file
#'
#' @return vector
#' @export
#'
lib_search <- function(path){

  if(!grepl(".R", path)) return("The input should be a .R script")
  if(!file.exists(path)) return("The file does not exist")


    script <- readLines(path)
    library_lines <- script[grep(pattern = "library\\(.*\\)", script)]
    pkgs <- sub(pattern = "library\\((.*)\\).*", "\\1", library_lines)
    return(pkgs)
   }