get_gradient <- function(themr, named = TRUE) {
if (!is_ggthemr(themr))
stop('themr is not a ggthemr object.', call. = FALSE)
gradient <- themr$palette$object$gradient
if (!named) gradient <- unname(gradient)
return (gradient)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.