chore(calcular_incidencia): add interactive for cache param

Ref: #206

R/checking_data.R

@@ -878,9 +878,6 @@ agrupar_per_etn <- function(data_event, cols_etn = "per_etn",
 #' @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`.
@@ -910,13 +907,15 @@ agrupar_per_etn <- function(data_event, cols_etn = "per_etn",
 #' data_limpia <- limpiar_data_sivigila(data_event = dengue2020)
 #' # Cálculo de la incidencia con proyecciones poblacionales por departamento
 #' data_agrupada_mpios <- agrupar_mpio(data_limpia, dpto = "Antioquia")
-#' calcular_incidencia(
-#'   data_agrupada = data_agrupada_mpios,
-#'   poblacion = "proyecciones",
-#'   dpto = "05",
-#'   year = 2020,
-#'   ruta_dir = tempdir()
-#' )
+#' if (interactive()) {
+#'   calcular_incidencia(
+#'     data_agrupada = data_agrupada_mpios,
+#'     poblacion = "proyecciones",
+#'     dpto = "05",
+#'     year = 2020,
+#'     cache = TRUE
+#'   )
+#' }
 #' # Cálculo de la incidencia con proyecciones poblacionales por municipio
 #' calcular_incidencia(
 #'   data_agrupada = data_agrupada_mpios,
@@ -925,8 +924,6 @@ agrupar_per_etn <- function(data_event, cols_etn = "per_etn",
 #'   mpio = "05001",
 #'   year = 2020,
 #'   ruta_dir = tempdir()
-#'   year = 2020,
-#'   ruta_dir = tempdir()
 #' )
 #' # Cálculo de la incidencia con población a riesgo para Colombia
 #' data_agrupada_dptos <- agrupar_dpto(data_limpia)
@@ -961,7 +958,6 @@ calcular_incidencia <- function(data_incidencia = NULL,
       event = nombre_evento,
       year = year,
       ruta_dir = ruta_dir,
-      ruta_dir = ruta_dir,
       cache = cache
     )
   data_incidencia <- pop_incidencia$data_incidencia