Nothing
#' @export
#' @rdname position_stack
position_fill <- function() {
PositionFill
}
#' @rdname animint2-gganimintproto
#' @format NULL
#' @usage NULL
#' @export
PositionFill <- gganimintproto("PositionFill", Position,
required_aes = c("x", "ymax"),
setup_data = function(self, data, params) {
if (!is.null(data$ymin) && !all(data$ymin == 0))
warning("Filling not well defined when ymin != 0", call. = FALSE)
gganimintproto_parent(Position, self)$setup_data(data)
},
compute_panel = function(data, params, scales) {
collide(data, NULL, "position_fill", pos_fill)
}
)
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.