Nothing
xtable.fdt <- function(x,caption = NULL, label = NULL, align = NULL,
digits = NULL, display = NULL, auto = FALSE,...){
res_DF <- x$table
newclass1 <- res_DF[,1]
newclass2 <- gsub("\\[","$[",newclass1)
newclass3 <- gsub("\\)",")$",newclass2)
res_DF[,1] <- newclass3
newnames <- names(res_DF)
newnames1 <- gsub("\\%","\\\\%",newnames)
names(res_DF) <- newnames1
return(xtable(res_DF,caption = caption, label = label, align = align,
digits = digits, display = display, auto = auto, ...))
}
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.