[string] Removing certain characters from a string in R