From 18c28f75af1c34a890b1f7dafa06635cbb253b46 Mon Sep 17 00:00:00 2001 From: Raphael Saldanha Date: Mon, 19 Aug 2024 18:31:17 +0200 Subject: [PATCH] Add leading zeros. --- R/process_cnes.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/process_cnes.R b/R/process_cnes.R index ec12267..64a8eab 100644 --- 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",