R/listFileFormpathFileValid.R

In DanGit01/ToImagen: Report of image files

#' creates an existing files names list of a directory
#'
#' @param pathFile : string (path)
#'
#' @return TRUE or FALSE , string vector or NULL
#' @export
#'
#' @examples
#' pathFile <- "C:/Images"
#' listFileFormpathFileValid(pathFile)
#'
listFileFormpathFileValid <- function(pathFile){
  existe <- FALSE
  listFile <- NULL

  listFile <- list.files(path = pathFile)

  if (length(listFile) > 0){
    existe <- TRUE
  }else
    warning("Invalid path. Path doesn't exist or is empty folder.")


  return(list(existe, listFile))
}