R/e_source_all_R_in_folder.R

In erikerhardt/erikmisc: Erik Erhardt's miscellaneous functions for solving complex data analysis workflows

#' Source all *.R files in a folder
#'
#' @param fn_R_location directory (folder) location
#' @param fn_list_name  file name pattern
#'
#' @return NULL, invisibly
#' @export
e_source_all_R_in_folder <-
  function(
    fn_R_location = "./R"
  , fn_list_name  = "*.R"
  ) {

  # list of files
  fn_R_to_source <-
    Sys.glob(
      paths =
        file.path(
          fn_R_location
        , fn_list_name
        )
    )

  if (length(fn_R_to_source) > 0) {
    # source the files
    sapply(
      fn_R_to_source
    , source
    )
  } else {
    message("  e_source_all_R_in_folder:  No files to source")
  }

  invisible(NULL)
}