R удалить не буквенно-цифровые символы из строки

У меня есть строка, и я хочу удалить из нее все не буквенно-цифровые символы, а затем поместить их в вектор. Итак, это:

"This is a string.  In addition, this is a string!" 

станет:

>stringVector1

"This","is","a","string","In","addition","this","is","a","string"

Я посмотрел на grep () , но не могу найти подходящий пример. Есть предложения?