Displaying 1 result from an estimated 1 matches for "tabpad".
Did you mean:
tabla
2000 Jan 04
0
format.char() speedup
...turn(format(x))
at <- attributes(x)
nc <- nchar(x)
if (is.null(width))
width <- max(nc)
else if (width < 0) {
flag <- "-"
width <- -width
}
# start of accelerate
no <- pmax(0, width - nc)
tab <- unique(no)
tabpad <- sapply(tab+1, function(no) paste(character(no), collapse = "
"))
pad <- tabpad[match(no, tab)]
# end of accelerate
r <- if (flag == "-")
paste(x, pad, sep = "")
else paste(pad, x, sep = "")
if (!is.null(at))
att...