fix: rlang dependence issues (#310)

Author: dshemetov

DESCRIPTION

@@ -45,6 +45,7 @@ Imports:
     purrr,
     rappdirs,
     readr,
+    rlang,
     tibble,
     usethis,
     xml2
@@ -54,7 +55,6 @@ Suggests:
     knitr,
     mapproj,
     maps,
-    rlang,
     rmarkdown,
     testthat (>= 3.1.5),
     withr

NAMESPACE

@@ -81,6 +81,8 @@ importFrom(magrittr,"%>%")
 importFrom(openssl,md5)
 importFrom(purrr,map_chr)
 importFrom(purrr,map_lgl)
+importFrom(rlang,dots_list)
+importFrom(rlang,inject)
 importFrom(stats,na.omit)
 importFrom(tibble,as_tibble)
 importFrom(tibble,tibble)

R/cache.R

@@ -170,7 +170,7 @@ set_cache <- function(cache_dir = NULL,
       max_age = days * 24 * 60 * 60,
       logfile = file.path(cache_dir, logfile)
     )
-    cache_environ$cache_args <- list2(
+    cache_environ$cache_args <- list(
       cache_dir = cache_dir,
       days = days,
       max_size = max_size,
@@ -202,6 +202,7 @@ set_cache <- function(cache_dir = NULL,
 #'   [`disable_cache`] to only disable without deleting, and [`cache_info`]
 #' @export
 #' @import cachem
+#' @importFrom rlang dots_list inject
 clear_cache <- function(..., disable = FALSE) {
   if (any(!is.na(cache_environ$epidatr_cache))) {
     cache_environ$epidatr_cache$destroy()
@@ -210,7 +211,7 @@ clear_cache <- function(..., disable = FALSE) {
   } else {
     recovered_args <- list()
   }
-  args <- rlang::dots_list(
+  args <- dots_list(
     ...,
     confirm = FALSE,
     !!!recovered_args,
@@ -220,7 +221,7 @@ clear_cache <- function(..., disable = FALSE) {
   if (disable) {
     cache_environ$epidatr_cache <- NULL
   } else {
-    rlang::inject(set_cache(!!!args))
+    inject(set_cache(!!!args))
   }
 }