dtdFile <- system.file("exampleData", "foo.dtd",package="XML")
parseDTD(dtdFile)
txt <- readLines(dtdFile)
txt <- paste(txt, collapse="\n")
d <- parseDTD(txt, asText=TRUE)
## Not run:
# url <- "http://www.omegahat.net/XML/DTDs/DatasetByRecord.dtd"
# d <- parseDTD(url, asText=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab