feat(agrupar_dpto): added cod_eve column to data.frame result

Ref: #108
epiverse-trace · Apr 19, 2024 · cb51d98 · cb51d98
1 parent 8922782
commit cb51d98
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 4 deletions.
diff --git a/DCD-area-sexo-edad-proypoblacion-Mun-2005-2019.xlsx b/DCD-area-sexo-edad-proypoblacion-Mun-2005-2019.xlsx
diff --git a/DCD-area-sexo-edad-proypoblacion-Mun-2020-2035-ActPostCOVID-19.xlsx b/DCD-area-sexo-edad-proypoblacion-Mun-2020-2035-ActPostCOVID-19.xlsx
diff --git a/R/checking_data.R b/R/checking_data.R
@@ -582,12 +582,13 @@ agrupar_dpto <- function(data_event,
             "El parametro porcentaje debe ser un booleano (TRUE o FALSE)" =
               is.logical(porcentaje))
   data_event_cods_dpto <- data_event
-  nomb_cols <- obtener_tip_ocurren_geo(data_event_cods_dpto$cod_eve[1])
+  nomb_cols <- append("cod_eve",
+                      obtener_tip_ocurren_geo(data_event_cods_dpto$cod_eve[1]))
   data_event_cods_dpto <- agrupar_cols_casos(data_event_cods_dpto,
-                                             nomb_cols = nomb_cols[1:2],
+                                             nomb_cols = nomb_cols[1:3],
                                              porcentaje = porcentaje)
-  data_event_cods_dpto[[nomb_cols[1]]] <-
-    as.character(data_event_cods_dpto[[nomb_cols[1]]])
+  data_event_cods_dpto[[nomb_cols[2]]] <-
+    as.character(data_event_cods_dpto[[nomb_cols[2]]])
   return(data_event_cods_dpto)
 }
 

diff --git a/inst/extdata/incidencia.xlsx b/inst/extdata/incidencia.xlsx
diff --git a/inst/extdata/incidencia_event.xlsx b/inst/extdata/incidencia_event.xlsx