getting numbers out of sys.time

Question

is there a more efficient/elegant method of doing the following in which I concatenate all the numbers in the output of the Sys.time() output

x <- as.character(Sys.time())
paste0(substr(x,0,4),substr(x,6,7),substr(x,9,10),substr(x,12,13),substr(x,15,16),substr(x,18,20))

It probably includes paste and collapse somehow but not sure how to do it...

Answer 1

I would have thought format to be the first choice:

format(Sys.time(), "%Y%m%d%H%M%S")
[1] "20120909231732"