Fix na.rm default

Author: hadley

NEWS.md

@@ -1,5 +1,8 @@
 # ggplot2 2.0.0.9000
 
+* `layer()` now automatically adds a `na.rm` parameter if none is explicitly
+  supplied.
+
 * `layer()` now accepts a function as the data argument. The function will be
   applied to the data passed to the `ggplot()` function and must return a
   data.frame (#1527).

R/layer.r

@@ -88,9 +88,13 @@ layer <- function(geom = NULL, stat = NULL,
   if (is.character(position))
     position <- find_subclass("Position", position)
 
+  # Special case for na.rm parameter needed by all layers
+  if (is.null(params$na.rm)) {
+    params$na.rm <- FALSE
+  }
+
   # Split up params between aesthetics, geom, and stat
   params <- rename_aes(params)
-
   aes_params  <- params[intersect(names(params), geom$aesthetics())]
   geom_params <- params[intersect(names(params), geom$parameters(TRUE))]
   stat_params <- params[intersect(names(params), stat$parameters(TRUE))]