library(Sxslt)
sheet = xsltParseStyleSheet(system.file("examples", "register.xsl", package = "Sxslt"))
z = xsltApplyStyleSheet(system.file("examples", "register.xml", package = "Sxslt"), sheet, isURL = FALSE)
cat(saveXML(z$doc))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.