R/common_file_existence_in_directory.R

In UUPharmacometrics/pmutils: R package for pharmacometric utilities

#' @export
file_existence_in_directory <- function(directory,file_name) {
  all.files <- dir(path=directory)
  if (any(all.files == file_name)) {
    file_exists <- TRUE
  } else {
    file_exists <- FALSE
  }
  return(file_exists)
}