Nothing
setGeneric( "clone", function( object, ... ){
standardGeneric( "clone" )
} )
._clone.message <- function( object, ... ){
message <- .Call(Message__clone, object@pointer)
update( message, ... )
message
}
setMethod( "clone", "Message", ._clone.message )
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.