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)
message
} )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.