setGeneric( "identical" )
setMethod( "identical", c(x="Message", y = "Message" ), function( x, y, num.eq = TRUE, single.NA = TRUE, attrib.as.set = TRUE){
.Call(identical_messages, x@pointer, y@pointer)
} )
setMethod( "==", c( e1 = "Message", e2 = "Message" ), function(e1, e2 ){
.Call(identical_messages, e1@pointer, e2@pointer)
} )
setMethod( "!=", c( e1 = "Message", e2 = "Message" ), function(e1, e2 ){
! .Call(identical_messages, e1@pointer, e2@pointer)
} )
setGeneric( "all.equal" )
setMethod( "all.equal", c( target = "Message", current = "Message" ),
function(target, current, tolerance = .Machine$double.eps^0.5, ...){
all.equal.Message(target, current, tolerance, ...)
} )
all.equal.Message <- function(target, current, tolerance = .Machine$double.eps^0.5, ...){
.Call(all_equal_messages, target@pointer, current@pointer, tolerance)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.