fix: catches by Dmitry

Author: dsweber2

R/cache.R

@@ -49,7 +49,7 @@ cache_environ$epidatr_cache <- NULL
 #' )
 #' }
 #'
-#' @param dir the directory in which the cache is stored. By default, this is `tools::R_user_dir()` if on R 4.0+, but must be specified for earlier versions of R. The environmental variable is `EPIDATR_CACHE_DIR`
+#' @param cache_dir the directory in which the cache is stored. By default, this is `tools::R_user_dir()` if on R 4.0+, but must be specified for earlier versions of R. The path can be either relative or absolute. The environmental variable is `EPIDATR_CACHE_DIR`
 #' @param days the maximum length of time in days to keep any particular cached call. By default this is `1`. The environmental variable is `EPIDATR_CACHE_MAX_AGE_DAYS`
 #' @param max_size the size of the entire cache, in MB, at which to start pruning entries. By default this is `1024`, or 1GB. The environmental variable is `EPIDATR_CACHE_MAX_SIZE_MB`.
 #' @param logfile where cachem's log of transactions is stored, relative to the cache directory. By default, it is `"logfile.txt"`. The environmental variable is `EPIDATR_CACHE_LOGFILE`.
@@ -67,7 +67,7 @@ set_cache <- function(cache_dir = NULL,
     # earlier version, so no tools
     cache_dir <- Sys.getenv("EPIDATR_CACHE_DIR")
     if (cach_dir == "") {
-      abort("no valid EPIDATR_CACHE_DIR")
+      cli::cli_abort("no valid EPIDATR_CACHE_DIR", class = "epidatr_cache_error")
     }
   }
   stopifnot(is.character(cache_dir))
@@ -164,7 +164,8 @@ check_is_recent <- function(dates, max_age) {
 #' the guts of caching, its interposed between fetch and the specific fetch methods. Internal method only.
 #'
 #' @param call the `epidata_call` object
-#' @inheritParams fetch
+#' @param fetch_args the args list for fetch as generated by [fetch_args_list()]
+#' @keywords internal
 #' @import cachem openssl
 cache_epidata_call <- function(epidata_call, fetch_args = fetch_args_list()) {
   as_of_cachable <- (!is.null(epidata_call$params$as_of) && epidata_call$params$as_of != "*")
@@ -213,14 +214,3 @@ cache_epidata_call <- function(epidata_call, fetch_args = fetch_args_list()) {
   }
   return(fetched)
 }
-
-# debugonce(cache_epidata_call)
-# thing <- covidcast(
-#   source = "jhu-csse",
-#   signals = "confirmed_7dav_incidence_prop",
-#   geo_type = "state",
-#   time_type = "day",
-#   geo_values = "ca,fl",
-#   time_values = epirange(20200601, 20200801),
-#   as_of = "20230101",
-# )