##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (x, digits = NULL, quote = FALSE, right = TRUE, ...)
{
if (length(x) == 0) {
cat("NULL data table
")
} else {
print(as.matrix(x), digits=digits, quote=quote, right=right, ...)
#mm = do.call("cbind", lapply(x, format, digits=digits))
#print(mm, ..., quote = quote, right = right)
}
invisible(x)
}
Run the code above in your browser using DataLab