R/unaccent.R

In INESSSQC/validation: Validation des données

#' Supprime les accents d'un texte
#'
#' Supprime tout les caractères avec accents ou caractères spéciaux en espaces ou à
#' la lettre sans accent.
#'
#' @param text Vecteur ou texte à retirer les accents.
#'
#' @return \code{text}, mais sans caractères spéciaux ni accents.
#' @keywords internal
#' @export
unaccent <- function(text) {
  text <- gsub("['`^~\"]", " ", text)
  text <- iconv(text, to="ASCII//TRANSLIT//IGNORE")
  text <- gsub("['`^~\"]", "", text)
  return(text)
}