Nothing
prettyTable <- function(mytable) {
mytable <- as.matrix(mytable)
if (is.logical(mytable)) {
mytable2 <- mytable
mytable[mytable2] <- "x"
mytable[!mytable2] <- "-"
}
if(is.null(colnames(mytable))) colnames(mytable) <- rep(" ", ncol(mytable))
nchars <- nchar(colnames(mytable))
colnames(mytable)[nchars == 1] <- format(colnames(mytable)[nchars == 1], width = 2, justify = "centre")
nchars[nchars == 1] <- 2
for (i in seq((ncol(mytable) - any(colnames(mytable) == "lines")))) {
mytable[, i] <- format(format(mytable[, i]), width = nchars[i], justify = "centre")
}
cat("\n")
return(noquote(mytable))
}
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.