Nothing
NAMESPACE <- environment()
array <- new( "Module" )
.onLoad <- function(libname, pkgname){
unlockBinding( "array" , NAMESPACE )
assign( "array", Module( "array" ), NAMESPACE )
lockBinding( "array", NAMESPACE )
}
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.