dtdFile <- system.file("exampleData", "foo.dtd", package="XML")
foo.dtd <- parseDTD(dtdFile)
# true
dtdIsAttribute("numRecords", "dataset", foo.dtd)
# false
dtdIsAttribute("date", "dataset", foo.dtd)
Run the code above in your browser using DataLab