#' @noRd
`%||%` <- function(x, y)
{
if(is.null(x)) y else x
}
#' @noRd
ggname <- function (prefix, grob)
{
grob$name <- grid::grobName(grob, prefix)
grob
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.