Nothing
callback.env <- new.env()
callback.env$count <- 0L
callback <- function( signature = "", object = NULL ){
if( !is.character( signature ) ){
stop( "'signature' should be a character vector" )
}
signature <- signature[1]
cb <- if( is.null( object ) ){
.jnew( "org/rosuda/REngine/remote/common/callbacks/SignedCallback", signature )
} else {
# TODO: bring "object" into java
warning( "ObjectCallback not yet supported" )
}
# TODO: send the callback
}
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.