R/geom-null.R

In brodieG/ggbg: Assorted GGPlot Extensions

## Copyright (C) 2018  Brodie Gaslam
##
## This file is part of "ggbg - Assorted Ggplot Extensions"
##
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## Go to <https://www.r-project.org/Licenses/GPL-2> for a copy of the license.

## A Simple Geom That does Nothing
##
## For testing purposes, this allows us to pass in whacky aesthetics without
## geom processing freaking out about it (and therefore letting other code run
## and fail / handle the whacky inputs)

geom_null <- function(mapping=NULL, data=NULL, position=NULL, stat="identity") {
  layer(
    mapping=mapping, data=data, position=position, geom=GeomNull,
    stat="identity"
  )
}
GeomNull <- ggproto("GeomNull", Geom,
  draw_panel = function(data, panel_params, coord) {
    zeroGrob()
  }
)