1
2#' Empty guide
3#'
4#' This guide draws nothing.
5#'
6#' @inheritParams guide_axis
7#'
8#' @export
9#'
10guide_none <- function(title = waiver(), position = waiver()) {
11  structure(
12    list(
13      title = title,
14      position = position,
15      available_aes = "any"
16    ),
17    class = c("guide", "guide_none")
18  )
19}
20
21#' @export
22guide_train.guide_none <- function(guide, scale, aesthetic = NULL) {
23  guide
24}
25
26#' @export
27guide_merge.guide_none <- function(guide, new_guide) {
28  new_guide
29}
30
31#' @export
32guide_geom.guide_none <- function(guide, layers, default_mapping) {
33  guide
34}
35
36#' @export
37guide_transform.guide_none <- function(guide, coord, panel_params) {
38  guide
39}
40
41#' @export
42guide_gengrob.guide_none <- function(guide, theme, ...) {
43  zeroGrob()
44}
45