Merge pull request #1129 from MichaelChirico/patch-3

lorenzwalthert · web-flow · commit edf399cea742 · 2023-11-24T16:54:02.000+01:00
avoid warning when missing R cache dir
diff --git a/R/zzz.R b/R/zzz.R
@@ -36,7 +36,7 @@ delete_if_cache_directory <- function(path) {
   if (getRversion() < package_version("4.0.0")) {
     return(FALSE)
   }
-  designated_cache_path <- normalizePath(tools::R_user_dir("R.cache", which = "cache"))
+  designated_cache_path <- normalizePath(tools::R_user_dir("R.cache", which = "cache"), mustWork = FALSE)
   is_in_tools_cache <- startsWith(path, designated_cache_path)
   temp_dir <- normalizePath(dirname(tempdir()))
   is_in_generic_cache <- startsWith(path, temp_dir)

Original file line number	Diff line number	Diff line change
`@@ -36,7 +36,7 @@ delete_if_cache_directory <- function(path) {`
`36`	`36`	`if (getRversion() < package_version("4.0.0")) {`
`37`	`37`	`return(FALSE)`
`38`	`38`	`}`
`39`		`- designated_cache_path <- normalizePath(tools::R_user_dir("R.cache", which = "cache"))`
	`39`	`+ designated_cache_path <- normalizePath(tools::R_user_dir("R.cache", which = "cache"), mustWork = FALSE)`
`40`	`40`	`is_in_tools_cache <- startsWith(path, designated_cache_path)`
`41`	`41`	`temp_dir <- normalizePath(dirname(tempdir()))`
`42`	`42`	`is_in_generic_cache <- startsWith(path, temp_dir)`