Nothing
xtable.fdt_cat.multiple <- function(x,caption = NULL, label = NULL, align = NULL,
digits = NULL, display = NULL, ...){
res <- lapply(x,function(x)x$table)
attr(res,"subheadings") <- attr(x,"subheadings")
return(xtableList(res,
caption=caption,
label=label,
align=align,
digits=digits,
display=display,
...))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.