library(grid)
has_name <- function(x) {
nms <- names(x)
if (is.null(nms)) {
return(rep(FALSE, length(x)))
}
!is.na(nms) & nms != ""
}
ggname <- function(prefix, grob) {
grob$name <- grobName(grob, prefix)
grob
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.