chore: removed function obtener_casos_pob_especial

Ref: #160

NAMESPACE

@@ -9,7 +9,6 @@ export(agrupar_eventos)
 export(agrupar_fecha_inisintomas)
 export(agrupar_mpio)
 export(agrupar_per_etn)
-export(agrupar_pob_especial)
 export(agrupar_rango_edad)
 export(agrupar_semanaepi)
 export(agrupar_sex)
@@ -34,7 +33,6 @@ export(limpiar_fecha_event)
 export(limpiar_val_atipic)
 export(list_events)
 export(listar_dptos)
-export(obtener_casos_pob_especial)
 export(obtener_cond_inciden_event)
 export(obtener_dptos)
 export(obtener_estetica_escala)

R/utils.R

@@ -492,48 +492,6 @@ obtener_eventos_relacionados <- function(nombre_event, years) {
   return(grupo_events)
 }
 
-#' Obtener población especial y casos
-#'
-#' Función que obtiene los casos por tipo de población
-#' especial de una enfermedad o evento
-#' @param data_event Un `data.frame` que contiene los datos de una
-#' enfermedad o evento
-#' @return Un `data.frame` con los casos por tipo de población especial
-#' de una enfermedad o evento
-#' @examples
-#' data(dengue2020)
-#' data_limpia <- limpiar_data_sivigila(data_event = dengue2020)
-#' obtener_casos_pob_especial(data_event = data_limpia)
-#' @export
-obtener_casos_pob_especial <- function(data_event) {
-  stopifnot("El parametro data_event es obligatorio" = !missing(data_event),
-            "El parametro data_event debe ser un data.frame" =
-              is.data.frame(data_event),
-            "El parametro data_event no debe estar vacio" =
-              nrow(data_event) > 0)
-  pob_especial <- config::get(file = system.file("extdata",
-                                                 "config.yml",
-                                                 package = "sivirep"),
-                              "special_populations_cols")
-  pob_especial_noms <- config::get(file =
-                                     system.file("extdata",
-                                                 "config.yml",
-                                                 package = "sivirep"),
-                                   "special_populations_names")
-  casos_especiales <- NULL
-  for (sp in pob_especial) {
-    data_event[[sp]] <- as.numeric(data_event[[sp]])
-    casos_especiales <- append(casos_especiales,
-                               sum(data_event[[sp]]))
-  }
-  data_pob_especial <- data.frame(
-    poblacion = pob_especial,
-    casos = casos_especiales,
-    nombre = pob_especial_noms
-  )
-  return(data_pob_especial)
-}
-
 #' Obtener las condiciones para calcular la incidencia de una
 #' enfermedad o evento
 #'