Remove n number of characters in a string after a specific character

Question

I\'m trying to figure out how to remove citation numbers from a string in the following way using R:

Original string:

"There were 100 people outsi