Nothing
## File Name: summary_sink.R
## File Version: 0.08
summary_sink <- function( object, file, append=FALSE, ...)
{
osink( file=file, suffix=".Rout", append=append )
summary(object=object, ... )
csink(file=file)
}
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.