# NOT RUN {
dtdFile <- system.file("exampleData","foo.dtd", package="XML")
foo.dtd <- parseDTD(dtdFile)
# Get the definition of the `entry1' element
tmp <- dtdElement("variable", foo.dtd)
xmlAttrs(tmp)
tmp <- dtdElement("entry1", foo.dtd)
# Get the definition of the `img' entity
dtdEntity("img", foo.dtd)
# }
Run the code above in your browser using DataLab