https://github.com/cran/XML
Tip revision: 3c0b64398bf79b865a4134380b14356c1683f77f authored by Duncan Temple Lang on 31 May 2015, 00:00:00 UTC
version 3.98-1.2
version 3.98-1.2
Tip revision: 3c0b643
SAXEntity.R
entities <- new.env(TRUE)
assign(".text", "", entities)
handlers = list(
.entityDeclaration = function(name, type, content, system, public) {
if((length(content) == 0 || nchar(content) == 0) && length(system) > 0) {
#
if(file.exists(system))
content = paste(readLines(system), collapse = "\n")
}
if(length(content))
assign(name, content, entities)
else
warning("Can't resolve entity ", name)
},
.getEntity = function(name) {
if(exists(name, entities))
return(get(name, entities))
return(character())
},
.text = function(txt) {
entities$.text <- paste(entities$.text, txt)
})
xmlEventParse("entity2.xml", handlers, useDotNames = TRUE)