getCSSRules =
function(nodes, sheet, eng = NULL) # selectionEngine()
{
if(length(nodes) > 1)
return(lapply(nodes,
function(x) {
getCSSRules(x, sheet, eng)
}))
.Call("R_getMatchedRulesets", eng, sheet, nodes)
}
selectionEngine =
function()
{
.Call("R_createSelectionEngine")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.