grabScriptAndStyle = function(dom)
{
nodeschar = getNodeSet(dom, "//script|//style|//link[@rel='stylesheet']", fun = saveXML)
cat(paste(nodeschar, collapse="\n"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.