R/is_empty_folder.R

In rvanmazijk/rvmr:

#' Check if folders are empty
#'
#' @param ... Character, folder path names
#' @param ignore Character, file extensions to ignore in the check
#'
#' @return A logical vector
is_empty_folder <- function(..., ignore = NULL) {
  paths <- c(...)
  out <- vector(length = length(paths))
  for (i in seq_along(paths)) {
    path_exists <- file.exists(paths[[i]])
    files_in_path <- list.files(
      paths[[i]],
      pattern = glue::glue("[^\\{ignore}]$")
    )
    out[[i]] <- (!path_exists) & (length(files_in_path) == 0)
  }
  out
}