[R] regexp help needed

[Lauri Nikkinen]

Hello,

I have a vector of dates and I would like to grep the year component
from this vector (= all digits
after the last punctuation character)

dates <- c("28.7.08","28.7.2008","28/7/08", "28/7/2008", "28/07/2008",
"28-07-2008", "28-07-08")

the resulting vector should look like

"08" "2008" "08" "2008" "2008" "2008" "08"

I tried something like (Perl style) with no success

grep("[[:punct:]]?\\d", dates, value=T, perl=T)

Any ideas?

-Lauri