Nothing
#' @importFrom ggplot2 ggplot_add
#' @export
ggplot_add.ggpacket <- function(object, plot, object_name) {
gg_plus_ggpacket(plot, object)
}
#' Lazy handler for ggplot addition
#'
#' @param e1 Addition lhs.
#' @param e2 Addition rhs.
#'
#' @return A new \code{ggpacket} object with \code{e2} appended as an additional
#' layer or layers.
#'
#' @export
`%+%` <- function(e1, e2) {
if (inherits(e1, "ggpacket"))
return(ggpacket_plus_ANY(e1, e2))
ggplot2::`%+%`(e1, e2)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.