as_xml <- function(x) {
suppressWarnings(
xml2:::read_xml.raw(charToRaw(x), "UTF-8", as_html = TRUE,
options = 289L)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.