Nothing
`fixedwidth` <-
function(x,...)UseMethod('fixedwidth')
`fixedwidth.data.frame` <-
function(x,...){
x <- data.frame(lapply(x,format,justify='right'),stringsAsFactors=FALSE)
x <- rbind(names(x),x)
x <- data.frame(lapply(x,format,justify='right'),stringsAsFactors=FALSE)
names(x) <- x[1,]
x[-1,,drop=FALSE]
}
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.