r <- xml_new_root(
xml_dtd("html",
"-//W3C//DTD XHTML 1.0 Transitional//EN",
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"))
# Use read_xml directly for more complicated DTD
d <- read_xml(
'
]>
This is a valid document &foo; !')
Run the code above in your browser using DataLab