update medidas

HRDAG · Nov 5, 2024 · 0049bd9 · 0049bd9
1 parent b7cef00
commit 0049bd9
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/R/globals.R b/R/globals.R
@@ -22,4 +22,4 @@ utils::globalVariables(c("replica","is_conflict","observed",
                          "data_combine", "digits", "is_conflict_dis_rep",
                          "edad_jep", "edad_jep_imputed", "muni_code_hecho",
                          "proportions_observed", "etnia_imputed", "etnia2",
-                         "quinquenio", "periodo_pres"))
+                         "quinquenio", "periodo_pres", "in_24"))
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/R/utils_authentication.R b/R/utils_authentication.R
@@ -132,9 +132,19 @@ medidas <- function(replicate_path) {
                                                "2007" = "farc en 2007")) %>%
         dplyr::select(variable, valor)
 
+    N_rows <- replicate_data %>%
+        dplyr::summarise(valor = dplyr::n()) %>%
+        dplyr::mutate(variable = "N rows") %>%
+        dplyr::select(variable, valor)
+
+    N_in_24 <- replicate_data %>%
+        dplyr::summarise(valor = sum(in_24)) %>%
+        dplyr::mutate(variable = "N in_24") %>%
+        dplyr::select(variable, valor)
+
     comparar <- dplyr::bind_rows(dpto, etnia, edad, year_2002_2007, year_1990_1994,
                                  sexo, perp, w_minor, caq_89_93, may, paras_bog,
-                                 paras_2016, mestizo_2000, farc_2007)
+                                 paras_2016, mestizo_2000, farc_2007, N_rows, N_in_24)
 
     replicate <- rep(replicate, each = nrow(comparar)) %>%
         as.data.frame()