From 8b3f4dd96c01ed97797cde31eb2e723f2c5c1a13 Mon Sep 17 00:00:00 2001
From: GeraldineGomez <avocadoenterprise@gmail.com>
Date: Fri, 22 Nov 2024 09:19:28 -0500
Subject: [PATCH] chore(import_pob_riesgo): add interactive for cache param

Ref: #206
---
 R/import_data.R          | 6 +++---
 man/import_pob_riesgo.Rd | 3 +++
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/R/import_data.R b/R/import_data.R
index be628a30..794e1c81 100644
--- a/R/import_data.R
+++ b/R/import_data.R
@@ -411,7 +411,9 @@ import_pob_proyecciones <- function(year,
 #' @examples
 #' \donttest{
 #' import_pob_riesgo(event = "Dengue", year = 2020, ruta_dir = tempdir())
-#' import_pob_riesgo(event = "Dengue", year = 2020, ruta_dir = tempdir())
+#' if (interactive()) {
+#'   import_pob_riesgo(event = "Dengue", year = 2020, cache = TRUE)
+#'   }
 #' }
 #' @export
 import_pob_riesgo <- function(event, year,
@@ -489,8 +491,6 @@ import_shape_map <- function(ruta_dir = NULL,
                              cache = FALSE) {
   ruta_dir <- obtener_ruta_dir(ruta_dir = ruta_dir, cache = cache,
                                mensaje_error = "el Shapefile del mapa")
-  ruta_dir <- obtener_ruta_dir(ruta_dir = ruta_dir, cache = cache,
-                               mensaje_error = "el Shapefile del mapa")
   archivo_zip <- obtener_val_config("map_shape_zip_file")
   ruta_zip <- file.path(ruta_dir, archivo_zip)
   if (!file.exists(ruta_zip)) {
diff --git a/man/import_pob_riesgo.Rd b/man/import_pob_riesgo.Rd
index 12a84cdd..5b26c5ec 100644
--- a/man/import_pob_riesgo.Rd
+++ b/man/import_pob_riesgo.Rd
@@ -31,5 +31,8 @@ o enfermedad para un año específico.
 \examples{
 \donttest{
 import_pob_riesgo(event = "Dengue", year = 2020, ruta_dir = tempdir())
+if (interactive()) {
+  import_pob_riesgo(event = "Dengue", year = 2020, cache = TRUE)
+  }
 }
 }