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