Nothing
#' @title geom_list
#' @description Returns character vector of geom types in ggplot.
#' @param p ggplot
#' @return character vector
#' @export
#' @keywords internal
geom_list <- function(p) {
g <- unlist(sapply(p$layers, function(x) gsub("Geom", "", proto_features(x)[2])))
g.list <- sapply(unique(g), function(x) paste0(g[g == x], seq(1, table(g)[[x]])))
unlist(g.list)
}
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.