#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.