Nothing
setGeneric( "merge" )
setMethod( "merge",
c( x = "Message", y = "Message" ),
function( x, y , ... ){
if( !identical( x@type, y@type ) ){
stop(sprintf("incompatible message types, cannot merge '%s' and '%s'", x@type, y@type))
}
message <- .Call( "Message__merge", x@pointer, y@pointer, PACKAGE="RProtoBuf")
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.