Nothing
#' @title Create interactive legend guide
#' @description
#' The guide is based on [guide_legend()].
#' See the documentation for that function for more details.
#'
#' @param ... arguments passed to base function.
#' @return An interactive guide object.
#' @inheritSection interactive_parameters Details for interactive scale and interactive guide functions
#' @examples
#' # add interactive discrete legend guide to a ggplot -------
#' @example examples/scale_manual_guide_legend_discrete_interactive.R
#' @examples
#' # add interactive continuous legend guide to a ggplot -------
#' @example examples/scale_viridis_guide_legend_continuous_interactive.R
#' @seealso [interactive_parameters], [girafe()]
#' @export
guide_legend_interactive <- function(...)
guide_interactive(guide_legend, "interactive_legend", ...)
#' @export
#' @importFrom purrr imap
guide_train.interactive_legend <- function(guide,
scale,
aesthetic = NULL) {
zz <- NextMethod()
if (is.null(zz))
return(zz)
copy_interactive_attrs_from_scale(zz, scale)
}
#' @export
guide_geom.interactive_legend <- function(guide,
layers,
default_mapping) {
check_guide_key_geoms(NextMethod())
}
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.