getGrobArgs <- function (grob) { args <- lapply(names(grob), FUN = function(x) {grob[[x]]}) args <- setNames(args, names(grob)) args }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.