R/get_local_functions.R

In origin: Explicitly Qualifying Namespaces by Automatically Adding 'pkg::' to Functions

#' Find All User Defined functions in the Project
#'
#' @param path Path in which all defined function names should be
#'  found and retrieved. Defaults to the current working directory.
#'
#' @return character vector of function names
#' @export
#'
#' @examples
#' get_local_functions(path = ".")
#' get_local_functions(path = rstudioapi::getActiveProject())
get_local_functions <- function(path = ".") {

  # get project root file
  root <- try(path, silent = TRUE)

  # in case ther eis no root file, return nothing
  if (inherits(root, what = "try-error")) {
    return(character(0))
  }


  # all R files that do not live in the foldrs renv/packrat/tests
  files <- list_files(path = root,
                      exclude_folders = c("renv", "packrat", "tests",
                                          ".git", ".Rproj"),
                      exclude_symlinks = TRUE,
                      full.names = TRUE,
                      include.dirs = FALSE,
                      recursive = TRUE,
                      pattern = "\\.R$",
                      ignore.case = TRUE)


  # read files and find function names
  local_funs <- suppressWarnings(
    sort(unique(unlist(
      lapply(X = files,
             FUN = find_functions)
    )))
  )

  return(local_funs)
}