Nothing
summary.folder <- function(object, ...){
summ.fold <- lapply(object, summary, ...)
attr(summ.fold, "same.rows") <- attr(object, "same.rows")
return(summ.fold)
}
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.