Nothing
setGeneric("swap", function( object, field, left, right) {
standardGeneric( "swap" )
} )
setMethod( "swap", "Message", function( object, field, left, right ){
left <- as.integer( left ) - 1L
right <- as.integer( right ) - 1L
if( length(left) != length(right) ){
stop( "left and right should have the same length" )
}
.Call( Message__swap, object@pointer, field, left, right )
invisible( object )
} )
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.