R/newNode.R

Defines functions makeNode

makeNode <- function(node, newChildren) {
   if (inherits(node, 'XMLTextNode')) {
      node
   } else {
      name <- xmlName(node)
      attrs <- xmlAttrs(node)
      namespace <- xmlNamespace(node)
      namespaceDefinitions <- xmlNamespaceDefinitions(node)
      xmlNode(name,
              attrs=attrs,
              namespace=namespace,
              namespaceDefinitions=namespaceDefinitions,
              .children=newChildren)
   }
}

Try the odfWeave package in your browser

Any scripts or data that you put into this service are public.

odfWeave documentation built on May 30, 2017, 7:23 a.m.