Nothing
func.completeOutputPar <-
function( output, extOut, extOutFile ){
#change DEFAULT
if( !is.null(extOutFile) )
extOut <- TRUE
if( extOut ){
if( is.null(extOutFile) )
output$writeTarget = stdout()
#redirect output to file
else{
output$toFile <- TRUE
output$writeTarget = file(extOutFile, open = "w")
}
}
return( output )
}
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.