[R] extract the digits of a number

[Gustavo Carvalho]

Hello,

Anyone knows how can I do this in a cleaner way?

mynumber = 1001
as.numeric(unlist(strsplit(as.character(mynumber),"")))
[1] 1 0 0 1

Thanks in advance,

Gustavo