1 days -> 1 day

dsweber2 · dsweber2 · commit 6e7f0cd9a551 · 2024-02-26T11:54:10.000-08:00
diff --git a/R/cache.R b/R/cache.R
@@ -168,10 +168,11 @@ set_cache <- function(cache_dir = NULL,
     )
   }
 
+  rlang::inform(cli::format_inline(msg), class = "packageStartupMessage")
   cli::cli_inform(c(
     "!" = "epidatr cache is being used (set env var EPIDATR_USE_CACHE=FALSE if not intended).",
     "i" = "The cache directory is {cache_dir}.",
-    "i" = "The cache will be cleared after {days} days and will be pruned if it exceeds {max_size} MB.",
+    "i" = "The cache will be cleared after {days} day{ifelse(days>1,'s','')} and will be pruned if it exceeds {max_size} MB.",
     "i" = "The log of cache transactions is stored at {file.path(cache_dir, logfile)}."
   ))
 }

Original file line number	Diff line number	Diff line change
`@@ -168,10 +168,11 @@ set_cache <- function(cache_dir = NULL,`
`168`	`168`	`)`
`169`	`169`	`}`
`170`	`170`
	`171`	`+ rlang::inform(cli::format_inline(msg), class = "packageStartupMessage")`
`171`	`172`	`cli::cli_inform(c(`
`172`	`173`	`"!" = "epidatr cache is being used (set env var EPIDATR_USE_CACHE=FALSE if not intended).",`
`173`	`174`	`"i" = "The cache directory is {cache_dir}.",`
`174`		`- "i" = "The cache will be cleared after {days} days and will be pruned if it exceeds {max_size} MB.",`
	`175`	`+ "i" = "The cache will be cleared after {days} day{ifelse(days>1,'s','')} and will be pruned if it exceeds {max_size} MB.",`
`175`	`176`	`"i" = "The log of cache transactions is stored at {file.path(cache_dir, logfile)}."`
`176`	`177`	`))`
`177`	`178`	`}`