R/DeleteAccentuation.R

In Blitzy29/R.TextMining: Useful tools for my text mining analysis

# 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)
  
}