From 1b9089616142860d1b2838f7bae50ef6803b8b9e Mon Sep 17 00:00:00 2001
From: GeraldineGomez <avocadoenterprise@gmail.com>
Date: Tue, 12 Nov 2024 19:09:45 -0500
Subject: [PATCH] feat(obtener_ruta_dir): add cache parameter

Ref: #206
---
 R/utils.R               | 13 +++++++------
 man/obtener_ruta_dir.Rd |  6 +++++-
 2 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/R/utils.R b/R/utils.R
index 2c482f78..11c82be6 100644
--- 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
index 742cf042..7e829e41 100644
--- a/man/obtener_ruta_dir.Rd
+++ b/man/obtener_ruta_dir.Rd
@@ -5,13 +5,17 @@
 \title{Obtener la ruta del directorio donde se almacenarán
 los datos del evento o enfermedad}
 \usage{
-obtener_ruta_dir(ruta_dir = NULL, mensaje_error)
+obtener_ruta_dir(ruta_dir = NULL, cache = FALSE, mensaje_error)
 }
 \arguments{
 \item{ruta_dir}{Un `character` (cadena de caracteres) que contiene la ruta
 del directorio donde se almacenarán los datos del evento o enfermedad.
 Su valor por defecto es `NULL`.}
 
+\item{cache}{Un `logical` (`TRUE` o `FALSE`) que indica si los datos
+descargados deben ser almacenados en caché. Su valor por defecto
+es `FALSE`.}
+
 \item{mensaje_error}{Un `character` (cadena de caracteres) con
 el mensaje de error que se debe mostrar en caso de que no se
 encuentre la dirección del directorio especificada en el