Merge pull request #472 from tin900/main

Author: gaborcsardi

NAMESPACE

@@ -69,6 +69,7 @@ export(fs_perms)
 export(group_ids)
 export(is_absolute_path)
 export(is_dir)
+export(is_dir_empty)
 export(is_file)
 export(is_file_empty)
 export(is_link)

R/is.R

@@ -65,3 +65,24 @@ is_absolute_path <- function(path) {
   tidy_path <- path_tidy(path)
   grepl("^~", path) | grepl("^(/+|[A-Za-z]:)", tidy_path)
 }
+
+#' Check if a directory is empty
+#'
+#' This function checks whether a given directory is empty or not.
+#'
+#' @param path A character string specifying the path to the directory to check.
+#'
+#' @return A logical value. Returns \code{TRUE} if the directory is empty,
+#'         \code{FALSE} otherwise.
+#'
+#' @examples
+#' \dontrun{
+#' is_dir_empty("path/to/empty/directory")  # Returns TRUE
+#' is_dir_empty("path/to/non-empty/directory")  # Returns FALSE
+#' }
+#'
+#' @export
+is_dir_empty <- function(path) {
+  length(dir_ls(path)) == 0
+}
+

_pkgdown.yml

@@ -32,6 +32,7 @@ reference:
 - title: Helpers
   contents:
   - is_file
+  - is_dir_empty
   - as_fs_path
   - as_fs_bytes
   - as_fs_perms