Ensure stat_identity has default na.rm argument.

Slightly improve docs as well

Author: hadley

R/stat-ecdf.r

@@ -1,6 +1,8 @@
 #' Empirical Cumulative Density Function
 #'
 #' @inheritParams stat_identity
+#' @param na.rm If \code{FALSE} (the default), removes missing values with
+#'    a warning.  If \code{TRUE} silently removes missing values.
 #' @param n if NULL, do not interpolate. If not NULL, this is the number
 #'   of points to interpolate with.
 #' @section Computed variables:

R/stat-ellipse.R

@@ -15,6 +15,8 @@
 #'   representing the euclidean distance from the center.
 #'   This ellipse probably won't appear circular unless \code{coord_fixed()} is applied.
 #' @param segments The number of segments to be used in drawing the ellipse.
+#' @param na.rm If \code{FALSE} (the default), removes missing values with
+#'    a warning.  If \code{TRUE} silently removes missing values.
 #' @inheritParams stat_identity
 #' @export
 #' @examples

R/stat-function.r

@@ -6,6 +6,8 @@
 #' @param fun function to use
 #' @param n number of points to interpolate along
 #' @param args list of additional arguments to pass to \code{fun}
+#' @param na.rm If \code{FALSE} (the default), removes missing values with
+#'    a warning.  If \code{TRUE} silently removes missing values.
 #' @inheritParams stat_identity
 #' @section Computed variables:
 #' \describe{

R/stat-identity.r

@@ -20,10 +20,10 @@
 #' @param ... other arguments passed on to \code{\link{layer}}. This can
 #'   include aesthetics whose values you want to set, not map. See
 #'   \code{\link{layer}} for more details.
-#' @param na.rm If \code{FALSE} (the default), removes missing values with
-#'    a warning.  If \code{TRUE} silently removes missing values.
-#' @keywords internal
 #' @export
+#' @examples
+#' p <- ggplot(mtcars, aes(wt, mpg))
+#' p + stat_identity()
 stat_identity <- function(mapping = NULL, data = NULL, geom = "point",
                           position = "identity", show.legend = NA,
                           inherit.aes = TRUE, ...) {
@@ -35,7 +35,10 @@ stat_identity <- function(mapping = NULL, data = NULL, geom = "point",
     position = position,
     show.legend = show.legend,
     inherit.aes = inherit.aes,
-    params = list(...)
+    params = list(
+      na.rm = FALSE,
+      ...
+    )
   )
 }
 

R/stat-qq.r

@@ -6,6 +6,8 @@
 #' @param distribution Distribution function to use, if x not specified
 #' @param dparams Additional parameters passed on to \code{distribution}
 #'   function.
+#' @param na.rm If \code{FALSE} (the default), removes missing values with
+#'    a warning.  If \code{TRUE} silently removes missing values.
 #' @inheritParams stat_identity
 #' @section Computed variables:
 #' \describe{

R/stat-unique.r

@@ -5,6 +5,8 @@
 #'
 #' @export
 #' @inheritParams stat_identity
+#' @param na.rm If \code{FALSE} (the default), removes missing values with
+#'    a warning.  If \code{TRUE} silently removes missing values.
 #' @examples
 #' ggplot(mtcars, aes(vs, am)) + geom_point(alpha = 0.1)
 #' ggplot(mtcars, aes(vs, am)) + geom_point(alpha = 0.1, stat="unique")