r - Extract text name from String

Question

I have a column with value as

"RED LOBSTER CA04606" or "Red Lobster NewYork WY245" n so on

How can I extract just the name Red Lobster or Red Lobster NewYork from it. Am tryin to using the stringr package.
Is there a way to check if its text only and can ignore the values with numbers in them?

Any help is highly appreciated. Thanks

Answer 1

Try gsub

> x <- "RED LOBSTER CA04606"
> gsub("\S*\d+\S*",'', x)
[1] "RED LOBSTER "

> x<-"Red Lobster NewYork WY245"
> gsub("\S*\d+\S*",'', x)
[1] "Red Lobster NewYork "

> x<-"Red Lobster NewYork WY245 BLUE LOBSTER CA04606"
> gsub("\S*\d+\S*",'', x)
[1] "Red Lobster NewYork  BLUE LOBSTER "