In R, how to remove everything before the last slash

Question

I have a dataset say

x <- c('test/test/my', 'et/tom/cat', 'set/eat/is', 'sk / handsome')

I'd like to remove everything before (including) the last slash, the result should look like

my cat is handsome

I googled this code which gives me everything before the last slash

gsub('(.*)/\\w+', '\\1', x)
[1] "test/test" "et/tom"    "set/eat"   "sk / tie"

How can I change this code, so that the other part of the string after the last slash can be shown?

Thanks

Answer 1

You can use basename:

paste(trimws(basename(x)),collapse=" ")
# [1] "my cat is handsome"

Answer 2

Using strsplit

> sapply(strsplit(x, "/\\s*"), tail, 1)
   [1] "my"       "cat"      "is"       "handsome"

Another way for gsub

> gsub("(.*/\\s*(.*$))", "\\2", x) # without 'unwanted' spaces
[1] "my"       "cat"      "is"       "handsome"

Using str_extract from stringr package

> library(stringr)
> str_extract(x, "\\w+$") # without 'unwanted' spaces
[1] "my"       "cat"      "is"       "handsome"