Re: [S]: Padding numbers with zeros after the decimal point

["Jeffrey J. Hallman" <m1jjh00@frb.gov>]

Nicole:

Here's a function that will do what you want.

pad.string <- function(x, len = max(nchar(x)), padchar = " ", right = T){
  ## pads x to the right (default) or left with padchar to desired length
  if(nchar(padchar) != 1) 
    stop("nchar(padchar) != 1")
  template <- paste(rep(padchar, len), collapse = "")
  if(right)
    xpad <- paste(substring(template, 1 + nchar(x)), x, sep = "")
  else  
    xpad <- paste(x, substring(template, 1 + nchar(x)), sep = "")
  attributes(xpad) <- attributes(x)
  xpad
}

Jeff 
-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu.  To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message:  unsubscribe s-news