isErrorBlock =
#
# Expects a BasicBlock
#
function(b)
any(sapply(b[], isRErrorCall))
isRErrorCall =
function(x)
is(x, "CallInst") && getCallName(x) == "Rf_error"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.