orig = xsltApplyStyleSheet("sqrt.xml", "sqrt.xsl")
sqrt =
function(ctxt, x) {
xslWarning("About to stop the XSL processing prematurely", context = ctxt)
.Call("R_xslStop", ctxt)
base::sqrt(x)
}
class(sqrt) = "XSLTContextFunction"
doc = xsltApplyStyleSheet("sqrt.xml", "sqrt.xsl")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.