R/files_exist.R

Defines functions files_exist

#' Multi-file file.exists function
#' @param filenames one or more filename
#' @return TRUE if all files exists, FALSE otherwise
#' @author Richèl J.C. Bilderbeek
#' @noRd
files_exist <- function(filenames) {
  for (filename in filenames) {
    if (!file.exists(filename)) {
      return(FALSE)
    }
  }
  TRUE
}
ropensci/tracerer documentation built on March 12, 2019, 8:30 p.m.