feat(obtener_ruta_dir): add cache parameter

Ref: #206
epiverse-trace · Nov 13, 2024 · 1b90896 · 1b90896
1 parent 78517ea
commit 1b90896
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 7 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -869,15 +869,16 @@ obtener_config_map <- function(data_agrupada, dpto, mpio,
 #' enfermedad.
 #' @keywords internal
 obtener_ruta_dir <- function(ruta_dir = NULL,
+                             cache = FALSE,
                              mensaje_error) {
-  if (is.null(ruta_dir)) {
+  if (cache) {
     ruta_dir <- tools::R_user_dir("sivirep", which = "cache")
-    if (!dir.exists(ruta_dir)) {
-      creado <- dir.create(ruta_dir, recursive = TRUE)
-      if (!creado) {
-        stop("Por favor indique en el parametro ruta_dir la ruta donde
+  }
+  if (!dir.exists(ruta_dir)) {
+    creado <- dir.create(ruta_dir, recursive = TRUE)
+    if (!creado) {
+      stop("Por favor indique en el parametro ruta_dir la ruta donde
              desea almacenar ", mensaje_error)
-      }
     }
   }
   return(ruta_dir)

diff --git a/man/obtener_ruta_dir.Rd b/man/obtener_ruta_dir.Rd