chore: add ruta_dir parameter to invoke import_pob_incidencia

Ref: #206
epiverse-trace · Nov 13, 2024 · ecf71cc · ecf71cc
1 parent 63ddc02
commit ecf71cc
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -596,7 +596,9 @@ obtener_pob_incidencia <- function(data_incidencia = NULL,
     data_incidencia <- import_pob_incidencia(
       poblacion = poblacion,
       event = event,
-      year = year
+      year = year,
+      cache = cache,
+      ruta_dir = ruta_dir
     )
     if (poblacion == "riesgo") {
       if (!is.null(data_incidencia)) {
@@ -610,7 +612,8 @@ obtener_pob_incidencia <- function(data_incidencia = NULL,
         data_incidencia <- import_pob_incidencia(
           poblacion = poblacion,
           cache = cache,
-          year = year
+          year = year,
+          ruta_dir = ruta_dir
         )
         message(
           "Las incidencias se calcularon con las proyecciones ",