R/getFunctions.R

In omegahat/XDocTools: Tools for working with XML and XSL documents

getFunctionDefs =
function(doc,  nodes = getNodeSet(doc, "//r:function[@r:id]"))
{
   if(is.character(doc))
      doc = xmlParse(doc)
   ids = sapply(nodes, identifyFunction)
   tapply(nodes, ids, function(nodes) xmlValue(nodes[[length(nodes)]]))
}