Nothing
xmlElementSummaryHandlers =
#
# Functions for the event parser that we can use
# to count the occurrences of each tag and the attributes
function(file = character(), countAttributes = TRUE)
{
# Collect a list of attributes for each element.
tags = list()
# frequency table for the element names
counts = integer()
start =
function(name, attrs, ...) {
if(name == "xi:include") {
# need to handle the xpointer piece
# and the relative path names - done with getRelativeURL
href = getRelativeURL(attrs['href'], dirname(file), sep = .Platform$file.sep)
xmlElementSummary(href, funs)
}
if(!countAttributes)
tags[[name]] <<- unique(c(names(attrs), tags[[name]]))
else {
x = tags[[name]]
i = match(names(attrs), names(x))
if(any(!is.na(i)))
x[i[!is.na(i)]] = x[i[!is.na(i)]] + 1
if(any(is.na(i)))
x[names(attrs)[is.na(i)]] = 1
tags[[name]] <<- x
}
counts[name] <<- if(is.na(counts[name])) 1 else counts[name] + 1
}
funs =
list(.startElement = start,
.getEntity = function(x, ...) "xxx",
.getParameterEntity = function(x, ...) "xxx",
result = function() list(nodeCounts = sort(counts, decreasing = TRUE), attributes = tags))
}
xmlElementSummary =
function(url, handlers = xmlElementSummaryHandlers(url))
{
handlers
if(file.exists(url) && file.info(url)[1, "isdir"])
url = list.files(url, pattern = "\\.xml$", full.names = TRUE)
if(length(url) > 1)
lapply(url, xmlElementSummary, handlers)
else
xmlEventParse(url, handlers, replaceEntities = FALSE)
handlers$result()
}
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.