Nothing
rscript <- function( package, script, arguments = commandArgs(TRUE), run = TRUE, dir = "exec" ){
Rscript <- file.path( R.home(), "bin", "Rscript" )
script <- system.file( dir, script, package = package )
if( !file.exists( script ) ){
stop( sprintf( "script '%s' does not exist", script) )
}
arguments <- if( length( arguments ) == 0 ) "" else paste( arguments, collapse = " " )
cmd <- sprintf( '"%s" "%s" %s', Rscript, script, arguments )
if( run ){
system( cmd )
} else {
cmd
}
}
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.