ChangeText <- function(textToChange,whatIsToChange) {
textChanged <- copy(textToChange)
if ("ChangeIntoBasicLatin" %in% whatIsToChange | whatIsToChange == 'All') textChanged %<>% ChangeIntoBasicLatin
if ("DeletePonctuation" %in% whatIsToChange | whatIsToChange == 'All') textChanged %<>% DeletePonctuation
if ("DeleteAllExtraSpaces" %in% whatIsToChange | whatIsToChange == 'All') textChanged %<>% DeleteAllExtraSpaces
return(textChanged)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.