R/substituir_caracteres_especiais.R

In andremenegatti/PregoesBR: Functions for analyzing data from Comprasnet and BEC-SP auctions

substituir_caracteres_especiais <- function(x) {
  toupper(x) %>%
    str_replace_all('Á', 'A') %>%
    str_replace_all('Ó', 'O') %>%
    str_replace_all('É', 'E') %>%
    str_replace_all('Ã', 'A') %>%
    str_replace_all('Õ', 'O') %>%
    str_replace_all('Ç', 'C') %>%
    str_replace_all('Í', 'I') %>%
    str_replace_all('Â', 'A') %>%
    str_replace_all('Ê', 'E') %>%
    str_replace_all('Ô', 'O') %>%
    str_replace_all('Ú', 'U') %>%
    str_replace_all('À', 'A')
}