From f380ea2bd663af6bd19c3c791977588a299241f1 Mon Sep 17 00:00:00 2001
From: GeraldineGomez <avocadoenterprise@gmail.com>
Date: Thu, 9 May 2024 11:27:30 -0500
Subject: [PATCH] chore: removed function obtener_casos_pob_especial

Ref: #160
---
 NAMESPACE                         |  2 --
 R/utils.R                         | 42 -------------------------------
 man/obtener_casos_pob_especial.Rd | 25 ------------------
 3 files changed, 69 deletions(-)
 delete mode 100644 man/obtener_casos_pob_especial.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 884e5438..c7f8fb5d 100644
--- a/NAMESPACE
+++ b/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)
diff --git a/R/utils.R b/R/utils.R
index 9a3bfced..5acd7a9b 100644
--- a/R/utils.R
+++ b/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
 #'
diff --git a/man/obtener_casos_pob_especial.Rd b/man/obtener_casos_pob_especial.Rd
deleted file mode 100644
index 70c33a38..00000000
--- a/man/obtener_casos_pob_especial.Rd
+++ /dev/null
@@ -1,25 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utils.R
-\name{obtener_casos_pob_especial}
-\alias{obtener_casos_pob_especial}
-\title{Obtener población especial y casos}
-\usage{
-obtener_casos_pob_especial(data_event)
-}
-\arguments{
-\item{data_event}{Un `data.frame` que contiene los datos de una
-enfermedad o evento}
-}
-\value{
-Un `data.frame` con los casos por tipo de población especial
-de una enfermedad o evento
-}
-\description{
-Función que obtiene 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)
-}