R/guides-none.R

In ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics

#' Empty guide
#'
#' This guide draws nothing.
#'
#' @inheritParams guide_axis
#'
#' @export
#'
guide_none <- function(title = waiver(), position = waiver()) {
  structure(
    list(
      title = title,
      position = position,
      available_aes = "any"
    ),
    class = c("guide", "guide_none")
  )
}

#' @export
guide_train.guide_none <- function(guide, scale, aesthetic = NULL) {
  guide
}

#' @export
guide_merge.guide_none <- function(guide, new_guide) {
  new_guide
}

#' @export
guide_geom.guide_none <- function(guide, layers, default_mapping) {
  guide
}

#' @export
guide_transform.guide_none <- function(guide, coord, panel_params) {
  guide
}

#' @export
guide_gengrob.guide_none <- function(guide, theme, ...) {
  zeroGrob()
}