use more concise timeout

lorenzwalthert · lorenzwalthert · commit 611c689075ee · 2023-06-05T15:55:15.000+02:00
diff --git a/R/zzz.R b/R/zzz.R
@@ -76,7 +76,7 @@ remove_old_cache_files <- function() {
     path_version_specific,
     full.names = TRUE, recursive = TRUE
   )
-  date_boundary <- Sys.time() - 60L * 60L * 24L * 6L
+  date_boundary <- Sys.time() - as.difftime(6, unit = "days")
   file.remove(
     all_cached[file.info(all_cached)$mtime < date_boundary]
   )

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ remove_old_cache_files <- function() {`
`76`	`76`	`path_version_specific,`
`77`	`77`	`full.names = TRUE, recursive = TRUE`
`78`	`78`	`)`
`79`		`- date_boundary <- Sys.time() - 60L * 60L * 24L * 6L`
	`79`	`+ date_boundary <- Sys.time() - as.difftime(6, unit = "days")`
`80`	`80`	`file.remove(`
`81`	`81`	`all_cached[file.info(all_cached)$mtime < date_boundary]`
`82`	`82`	`)`