1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
xmlXIncludes =
#
# This is similar to getXIncludes() but returns the hierarchical structure
# if desired.
#
function(filename, recursive = TRUE,
omitPattern = "\\.(js|html?|txt|R|c)$",
namespace = c(xi = "https://www.w3.org/2003/XInclude"),
addNames = TRUE,
clean = NULL, ignoreTextParse = FALSE)
{
doc = xmlParse(filename, xinclude = FALSE)
#if(filename == "./XPath/xpathApplyFunctionTable.xml") browser()
if(missing(namespace)) {
ns = xmlNamespaceDefinitions(doc, simplify = TRUE)
if("https://www.w3.org/2001/XInclude" %in% ns)
namespace = c(xi = "https://www.w3.org/2001/XInclude")
}
nodes = getNodeSet(doc, "//xi:include[not(ancestor::ignore)]", namespaces = namespace)
files = lapply(nodes, xmlGetAttr, "href")
nonRecursive = as.logical(sapply(nodes, xmlGetAttr, "parse", "") == "text")
# get rid of duplicates. These arise from xpointer includes ofparts of the document.
d = duplicated(files)
files = files[!d]
nodes = nodes[!d]
nonRecursive = nonRecursive[!d]
if(ignoreTextParse) {
files = files[!nonRecursive]
nonRecursive = rep(FALSE, length(files))
}
files = doClean(files, clean)
if(length(omitPattern))
nonRecursive = grepl(omitPattern, unlist(files)) | nonRecursive
if(recursive) {
ans = files
ans[!nonRecursive] = lapply(files[!nonRecursive],
function(x) {
u = getRelativeURL(x, filename)
u = gsub("#.*$", "", u)
xmlXIncludes(u, recursive = TRUE, addNames = addNames, clean = clean, ignoreTextParse = ignoreTextParse)
})
if(addNames)
names(ans) = files
if(length(ans) == 0 || ans == "")
ans = list()
files = ans
# for D3 output. See RD3Device on github.com/duncantl/RD3Device.
files = lapply(files, function(x) if(is.character(x)) list(name = x) else x)
} else
files = unlist(files)
list(name = doClean(filename, clean), children = files)
}
doClean =
function(txt, clean)
{
if(!is.null(clean)) {
if(is.function(clean))
txt = clean(txt)
else if(is.character(clean))
txt = gsub(clean[1], clean[2], txt)
}
txt
}
|
