files <- dir("xml_testdata", full.names = TRUE)
xml_testdata <- lapply(files, xml2::read_xml)
names(xml_testdata) <- sub(".xml$", "", basename(files))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.