file.remove does not work on Windows for directories.

lorenzwalthert · krlmlr · web-flow · commit 580031bf58c3 · 2021-09-22T21:49:35.000+02:00
Co-authored-by: Kirill Müller &lt;krlmlr@users.noreply.github.com&gt;
diff --git a/R/zzz.R b/R/zzz.R
@@ -39,7 +39,6 @@ remove_cache_old_versions <- function() {
     return()
   }
   purrr::walk(old_package_dirs, function(dir) {
-    cache_clear(basename(dir), ask = FALSE)
-    file.remove(dir)
+    unlink(dir, recursive = TRUE, force = TRUE)
   })
 }

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,6 @@ remove_cache_old_versions <- function() {`
`39`	`39`	`return()`
`40`	`40`	`}`
`41`	`41`	`purrr::walk(old_package_dirs, function(dir) {`
`42`		`- cache_clear(basename(dir), ask = FALSE)`
`43`		`- file.remove(dir)`
	`42`	`+ unlink(dir, recursive = TRUE, force = TRUE)`
`44`	`43`	`})`
`45`	`44`	`}`