"%||%" <- function(a, b) {
if (!is.null(a)) a else b
}
ggname <- function(prefix, grob) {
grob$name <- grid::grobName(grob, prefix)
grob
}
has_groups <- function(data) {
data$group[1L] != -1L
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.