R/ChangeText.R

In Blitzy29/TextMiningTools: Useful tools for my text mining analysis

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