Add dummy data to layer to fix tidyverse#1655

thomasp85 · Aug 1, 2016 · 87b7767 · 87b7767
1 parent b5a54e2
commit 87b7767
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/annotation-custom.r b/R/annotation-custom.r
@@ -42,7 +42,7 @@ NULL
 #'   annotation_custom(grob = g, xmin = 1, xmax = 10, ymin = 8, ymax = 10)
 annotation_custom <- function(grob, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf) {
   layer(
-    data = NULL,
+    data = data.frame(x = NA),
     stat = StatIdentity,
     position = PositionIdentity,
     geom = GeomCustomAnn,

diff --git a/R/annotation-map.r b/R/annotation-map.r
@@ -34,7 +34,7 @@ annotation_map <- function(map, ...) {
   stopifnot(all(c("x", "y", "id") %in% names(map)))
 
   layer(
-    data = NULL,
+    data = data.frame(x = NA),
     stat = StatIdentity,
     geom = GeomAnnotationMap,
     position = PositionIdentity,

diff --git a/R/annotation-raster.r b/R/annotation-raster.r
@@ -43,7 +43,7 @@ annotation_raster <- function(raster, xmin, xmax, ymin, ymax,
   raster <- grDevices::as.raster(raster)
 
   layer(
-    data = NULL,
+    data = data.frame(x = NA),
     mapping = NULL,
     stat = StatIdentity,
     position = PositionIdentity,