Nothing
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)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.