Clean up comma, period, etc & lowercase the text

text_cleanup.R

# Clean comma and lower case text

cleanup <- function (text) {
  temp <- text
  # Clean up comma and period
  temp <- gsub('[,.! ]', '', temp)
  # To Lowercase
  temp <- tolower(temp)
  
  return(temp)
}

TEXT_STRINGS <- c("Like,", "Boom.", ".Hola", " Bo,oo!oo.")
cleanup(TEXT_STRINGS)

# > # Clean comma and lower case text
# > 
# > cleanup <- function (text) {
# +   temp <- text
# +   # Clean up comma and period
# +   temp <- gsub('[,.! ]', '', temp)
# +   # To Lowercase
# +   temp <- tolower(temp)
# +   
# +   return(temp)
# + }
# > 
# > TEXT_STRINGS <- c("Like,", "Boom.", ".Hola", " Bo,oo!oo.")
# > cleanup(TEXT_STRINGS)
# [1] "like"   "boom"   "hola"   "booooo"