R/fmt2width.r

fmt2width <- function(fmt){
    width = gsub('%-*','',fmt)
    width = gsub('[a-z].*','',width)
    width = as.numeric(gsub('\\..*','',width))
    width = width + nchar(fmt) - nchar(gsub(' ','',fmt))
    return(width)
}
palderman/dssatR documentation built on May 24, 2019, 5:59 p.m.