Hello
On Fri, Jul 27, 2012 at 6:54 AM, R. Michael Weylandt
<michael.weyla...@gmail.com> wrote:
> Much easier than you think:
>
> x <- c(1L, 9000L)
>
> sprintf("%05i",x)
>
For anyone interested, I came up with a small wrapper for the above:
add.lead <- function(x, width=max(nchar(x))){
sprintf(paste('%0', width, 'i', sep=''), x)
}
> x <- c(1L, 15L, 234L, 9000L)
> (xa <- add.lead(x))
[1] "0001" "0015" "0234" "9000"
> nchar(xa)
[1] 4 4 4 4
> (xb <- add.lead(x, 5))
[1] "00001" "00015" "00234" "09000"
> nchar(xb)
[1] 5 5 5 5
> (xc <- add.lead(x, 15))
[1] "000000000000001" "000000000000015" "000000000000234" "000000000009000"
> nchar(xc)
[1] 15 15 15 15
Regards
Liviu
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
