Add dummy data to layer to fix tidyverse#1655

Author: thomasp85

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,

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,

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,