# 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