From 171f8d8c6d5a20d0ef2345586dd33c67a68b8109 Mon Sep 17 00:00:00 2001
From: GeraldineGomez <avocadoenterprise@gmail.com>
Date: Fri, 22 Nov 2024 09:11:02 -0500
Subject: [PATCH] chore(calcular_incidencia_geo): add interactive for cache
 param

Ref: #206
---
 R/checking_data.R              | 28 ++++++++--------------------
 man/calcular_incidencia_geo.Rd | 14 ++++++++------
 2 files changed, 16 insertions(+), 26 deletions(-)

diff --git a/R/checking_data.R b/R/checking_data.R
index 753ad46d..b39d1e49 100644
--- a/R/checking_data.R
+++ b/R/checking_data.R
@@ -1050,9 +1050,6 @@ calcular_incidencia <- function(data_incidencia = NULL,
 #' @param ruta_dir Un `character` (cadena de caracteres) que especifica la ruta
 #' del directorio donde se almacenarán la población a riesgo o las proyecciones
 #' poblacionales DANE. Su valor por defecto es `NULL`.
-#' @param ruta_dir Un `character` (cadena de caracteres) que especifica la ruta
-#' del directorio donde se almacenarán la población a riesgo o las proyecciones
-#' poblacionales DANE. Su valor por defecto es `NULL`.
 #' @param cache Un `logical` (`TRUE` o `FALSE`) que indica si la población a
 #' riesgo o las proyecciones poblacionales DANE descargadas deben ser
 #' almacenados en caché. Su valor por defecto es `FALSE`.
@@ -1073,12 +1070,14 @@ calcular_incidencia <- function(data_incidencia = NULL,
 #' data_limpia <- limpiar_data_sivigila(data_event = dengue2020)
 #' data_agrupada_mpios <- agrupar_mpio(data_limpia, dpto = "Antioquia")
 #' # Cálculo de la incidencia con población a riesgo por departamento
-#' calcular_incidencia_geo(
-#'   poblacion = "riesgo",
-#'   data_agrupada = data_agrupada_mpios,
-#'   year = 2020,
-#'   ruta_dir = tempdir()
-#' )
+#' if (interactive()) {
+#'   calcular_incidencia_geo(
+#'     poblacion = "riesgo",
+#'     data_agrupada = data_agrupada_mpios,
+#'     year = 2020,
+#'     cache = TRUE
+#'   )
+#' }
 #' data_agrupada_dptos <- agrupar_dpto(data_limpia)
 #' # Cálculo de la incidencia con proyecciones poblacionales para Colombia
 #' calcular_incidencia_geo(
@@ -1086,15 +1085,12 @@ calcular_incidencia <- function(data_incidencia = NULL,
 #'   data_agrupada = data_agrupada_dptos,
 #'   year = 2020,
 #'   ruta_dir = tempdir()
-#'   year = 2020,
-#'   ruta_dir = tempdir()
 #' )
 #' }
 #' @export
 calcular_incidencia_geo <- function(data_incidencia = NULL,
                                     cache = FALSE,
                                     ruta_dir = NULL,
-                                    ruta_dir = NULL,
                                     data_agrupada,
                                     poblacion = NULL,
                                     year = NULL) {
@@ -1118,8 +1114,6 @@ calcular_incidencia_geo <- function(data_incidencia = NULL,
       year = year,
       cache = cache,
       ruta_dir = ruta_dir
-      cache = cache,
-      ruta_dir = ruta_dir
     )
   data_incidencia <- pop_incidencia$data_incidencia
   poblacion <- pop_incidencia$poblacion
@@ -1149,9 +1143,6 @@ calcular_incidencia_geo <- function(data_incidencia = NULL,
         year = year,
         cache = cache,
         ruta_dir = ruta_dir
-        year = year,
-        cache = cache,
-        ruta_dir = ruta_dir
       )
       geo_incidencia[fila] <- incidencia$incidencia
     }
@@ -1182,9 +1173,6 @@ calcular_incidencia_geo <- function(data_incidencia = NULL,
         year = year,
         cache = cache,
         ruta_dir = ruta_dir
-        year = year,
-        cache = cache,
-        ruta_dir = ruta_dir
       )
       geo_incidencia[fila] <- incidencia$incidencia
     }
diff --git a/man/calcular_incidencia_geo.Rd b/man/calcular_incidencia_geo.Rd
index 3929ed19..0f9b4979 100644
--- a/man/calcular_incidencia_geo.Rd
+++ b/man/calcular_incidencia_geo.Rd
@@ -51,12 +51,14 @@ data(dengue2020)
 data_limpia <- limpiar_data_sivigila(data_event = dengue2020)
 data_agrupada_mpios <- agrupar_mpio(data_limpia, dpto = "Antioquia")
 # Cálculo de la incidencia con población a riesgo por departamento
-calcular_incidencia_geo(
-  poblacion = "riesgo",
-  data_agrupada = data_agrupada_mpios,
-  year = 2020,
-  ruta_dir = tempdir()
-)
+if (interactive()) {
+  calcular_incidencia_geo(
+    poblacion = "riesgo",
+    data_agrupada = data_agrupada_mpios,
+    year = 2020,
+    cache = TRUE
+  )
+}
 data_agrupada_dptos <- agrupar_dpto(data_limpia)
 # Cálculo de la incidencia con proyecciones poblacionales para Colombia
 calcular_incidencia_geo(