R/getFiles.r

Defines functions getFiles

Documented in getFiles

#' List the files to convert
#'
#' \code{getFiles} looks for Excel files within a
#' directory and returns file names as a list.
#' For this to work, Excel files must be saved with the
#' \code{.xlsx} extension.
#'
#' @param excelDir Character scalar. Names the directory used
#'   to search for .xlsx files. Defaults to the current working directory.
#' @param regexp Character scalar. Pattern \code{getFiles} should use
#'   to find files.
#' @return A \code{list} containing file names. Otherwise, an
#'   error if the directory does not have read access, or does not
#'   contain any \code{.xlsx} files.

getFiles <- function(excelDir = ".", regexp = NULL) {
  # Test the path
  xlFiles <- tryCatch({
    fs::dir_ls(excelDir, regexp = regexp)
  },
  error = function(err) {
    futile.logger::flog.error(err)
    stop("Process failed!\n Stopping execution.", call. = FALSE)
  })
  # Make sure we have files
  if (length(xlFiles) == 0) {
    futile.logger::flog.error("No files in process in %s", excelDir)
    stop("Process failed!\n Stopping execution.", call. = FALSE)
  }
  return(xlFiles)
}
DurhamRegionHARP/verto2covax documentation built on July 1, 2021, 8:44 a.m.