R/odfTable.R

"odfTable" <-
function(x, ...)
{
   UseMethod("odfTable")
}

print.odfTable <- function(x, ...)
{
   cat(x$start)
   if(!is.null(x$header)) cat(x$header)
   if(any(dim(x$cells) == 1)) cat(x$cells) else cat(t(x$cells))
   cat(x$end)
}

Try the odfWeave package in your browser

Any scripts or data that you put into this service are public.

odfWeave documentation built on May 2, 2019, 6:51 p.m.