chore(calcular_incidencia_geo): add interactive for cache param

Ref: #206

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,28 +1070,27 @@ 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(
 #'   poblacion = "proyecciones",
 #'   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
     }