addAttr <- function(x, ...) { newAttr <- list(...) for (n in names(newAttr)) { attr(x, n) <- extract2(newAttr, n) } x }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.