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