if (requireNamespace("xml2", quietly = TRUE)) {
doc <- xml2::read_xml("<body></body>")
## Marshal 'xml_document' object
doc_ <- marshal(doc)
## Unmarshal 'xml_document' object
doc2 <- unmarshal(doc_)
stopifnot(all.equal(doc2, doc))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.