## 'x' should be an htmlDocument
copyAssets <- function(html, dir) {
assets <- html$assets
if (!is.null(assets)) {
file.copy(assets, dir)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.