Removing last consecutive digits

Question

I have a column of alphanumeric data and i have to remove the last consecutive digits. It could be of any length.

Input:

dlxcp01 
dlcs8012
fg2fdes1

Desired Output:

dlxcp
dlcs
fg2fdes

As i have large dataset, a right code would do it better.

Answer 1

Use the gsub() function:

text <- c('dlxcp01', 'dlcs8012', 'fg2fdes1')
gsub('[0-9]*$', "", text)
[1] "dlxcp"   "dlcs"    "fg2fdes"

Answer 2

Use sub function.

sub("[0-9]+$", "", x)

or

sub("[[:digit:]]+$", "", x)