https://github.com/cran/XML
Tip revision: 6ac5aacfa6b8250c6501b2fe1c24fc9f287f02f3 authored by Duncan Temple Lang on 29 April 2011, 00:00:00 UTC
version 3.4-0
version 3.4-0
Tip revision: 6ac5aac
xmlHandler.R
xmlHandler <-
function() {
data <- list()
startElement <- function(name, atts,...) {
if(is.null(atts))
atts <- list()
data[[name]] <<- atts
}
text <- function(x,...) {
cat("MyText:",x,"\n")
}
comment <- function(x,...) {
cat("comment", x,"\n")
}
externalEntity <- function(ctxt, baseURI, sysId, publicId,...) {
cat("externalEntity", ctxt, baseURI, sysId, publicId,"\n")
}
entityDeclaration <- function(name, baseURI, sysId, publicId,notation,...) {
cat("externalEntity", name, baseURI, sysId, publicId, notation,"\n")
}
foo <- function(x,attrs,...) { cat("In foo\n")}
return(list(startElement=startElement, getData=function() {data},
comment=comment, externalEntity=externalEntity,
entityDeclaration=entityDeclaration,
text=text, foo=foo))
}