Implement clean_cache() (#2719)

Closes #2718

NAMESPACE

@@ -125,6 +125,7 @@ export(build_site)
 export(build_site_github_pages)
 export(build_tutorials)
 export(check_pkgdown)
+export(clean_cache)
 export(clean_site)
 export(data_template)
 export(deploy_site_github)

NEWS.md

@@ -1,5 +1,6 @@
 # pkgdown (development version)
 
+* New `clean_cache()` function removes the contents of the cache directory (#2718).
 * pkgdown now depends on R >= 4.0.0 (#2714)
 
 # pkgdown 2.1.0

R/clean.R

@@ -4,6 +4,7 @@
 #'
 #' @param quiet If `TRUE`, suppresses a message.
 #' @inheritParams build_site
+#' @rdname clean
 #' @export
 clean_site <- function(pkg = ".", quiet = FALSE) {
 
@@ -27,6 +28,30 @@ clean_site <- function(pkg = ".", quiet = FALSE) {
   invisible(TRUE)
 }
 
+#' Clean cache
+#'
+#' Delete all files in the pkgdown cache directory.
+#'
+#' @rdname clean
+#' @export
+clean_cache <- function(pkg = ".", quiet = FALSE) {
+
+  pkg <- as_pkgdown(pkg)
+  cache_path <- tools::R_user_dir("pkgdown", "cache")
+
+  if (dir_exists(cache_path)) {
+    if (!quiet) {
+      cli::cli_inform(
+        "Cleaning {.pkg {pkg$package}} cache files from {.path {cache_path}}"
+      )
+    }
+
+    dir_delete(cache_path)
+  }
+
+  invisible(TRUE)
+}
+
 check_dest_is_pkgdown <- function(pkg) {
   if (file_exists(path(pkg$dst_path, "pkgdown.yml"))) {
     return()
@@ -45,6 +70,6 @@ dest_files <- function(pkg) {
     character()
   } else {
     top_level <- dir_ls(pkg$dst_path)
-    top_level[!path_file(top_level) %in% c("CNAME", "dev")]  
+    top_level[!path_file(top_level) %in% c("CNAME", "dev")]
   }
 }