# Change l'e dans l'o
# Supprime ponctuation
# Supprime tous les espaces en trop (debut, fin, milieu)
DeleteAccentuation <- function(textToChange) {
load("data/unwanted_array.RData")
textChanged <- chartr(paste(names(unwanted_array), collapse=''),
paste(unwanted_array, collapse=''),
textToChange)
return(textChanged)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.