chore(import_pob_riesgo): add interactive for cache param

Ref: #206
epiverse-trace · Nov 22, 2024 · 8b3f4dd · 8b3f4dd
1 parent 7b0362f
commit 8b3f4dd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git 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