No group computation in StatIdentity

hadley · hadley · commit 66b9df75f79f · 2015-07-28T07:45:22.000-05:00
diff --git a/R/stat-identity.r b/R/stat-identity.r
@@ -41,4 +41,8 @@ stat_identity <- function(mapping = NULL, data = NULL, geom = "point",
 #' @format NULL
 #' @usage NULL
 #' @export
-StatIdentity <- ggproto("StatIdentity", Stat)
+StatIdentity <- ggproto("StatIdentity", Stat,
+  calculate_groups = function(data, scales, ...) {
+    data
+  }
+)
