Add leading zeros.

rfsaldanha · Aug 19, 2024 · 18c28f7 · 18c28f7
1 parent d2328d3
commit 18c28f7
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/process_cnes.R b/R/process_cnes.R
@@ -362,11 +362,17 @@ process_cnes <- function(data, information_system = c("CNES-ST", "CNES-PF"), nom
           TP_UNID = dplyr::case_match(
             .data$TP_UNID,
             "1" ~ "Posto de sa\u00fade",
+            "01" ~ "Posto de sa\u00fade",
             "2" ~ "Centro de sa\u00fade / Unidade b\u00e1sica",
+            "02" ~ "Centro de sa\u00fade / Unidade b\u00e1sica",
             "4" ~ "Policl\u00ednica",
+            "04" ~ "Policl\u00ednica",
             "5" ~ "Hospital geral",
+            "05" ~ "Hospital geral",
             "7" ~ "Hospital Especializado",
+            "07" ~ "Hospital Especializado",
             "9" ~ "Pronto socorro de hospital geral (antigo)",
+            "09" ~ "Pronto socorro de hospital geral (antigo)",
             "12" ~ "Pronto socorro traumato-ortop\u00e9dico (antigo)",
             "15" ~ "Unidade mista",
             "20" ~ "Pronto socorro geral",