library(XML)
doc = xmlParse("<doc><a>This and that</a></doc>")
doit =
function(a, b, c, d, ...)
{
browser()
TRUE
}
#ans = getNodeSet(doc, "//a[doit()]", xpathFuns = list("doit"))
ans = getNodeSet(doc, "//a[doit('[Tt]his', position(), true(), false(), 'tt')]", xpathFuns = list("doit"))
# string(.)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.