# Test the r:as call
library(Sxslt); library(XML)
foo = function() table(rpois(1000, 2))
doc = xsltApplyStyleSheet(I("<doc/>"), "robject.xsl")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.