Document all delete functions together

MichaelChirico · Jan 3, 2018 · 8a6711c · 8a6711c
1 parent a2c3c56
commit 8a6711c
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 32 deletions.
diff --git a/R/delete.R b/R/delete.R
@@ -21,7 +21,6 @@ file_delete <- function(path) {
 }
 
 #' @rdname delete
-#' @template fs
 #' @export
 dir_delete <- function(path) {
   dirs <- dir_list(path, type = "directory", recursive = TRUE)

diff --git a/R/dir.R b/R/dir.R
@@ -1,18 +1,3 @@
-#' Delete files in a directory
-#'
-#' @inheritParams dir_list
-#' @export
-dir_delete <- function(path) {
-  dirs <- dir_list(path, type = "directory", recursive = TRUE)
-  files <- dir_list(path,
-    type = c("unknown", "file", "symlink", "FIFO", "socket", "character_device", "block_device"),
-    recursive = TRUE)
-  file_delete(files)
-  rmdir_(rev(c(path, dirs)))
-
-  invisible(path_tidy(path))
-}
-
 #' Copy a directory
 #' @template fs
 #' @param new_path new location to copy to.

diff --git a/man/delete.Rd b/man/delete.Rd
diff --git a/man/dir_delete.Rd b/man/dir_delete.Rd