included functions to warn if the user supplies either the mapping or data

thiyangt · thiyangt · commit ed978ab6645e · 2019-07-08T15:51:28.000+02:00
diff --git a/R/stat-function.r b/R/stat-function.r
@@ -81,6 +81,16 @@ stat_function <- function(mapping = NULL, data = NULL,
       ...
     )
   )
+
+  # Warn if supplied mapping and/or data is going to be overwritten
+  if (!is.null(mapping)) {
+    warn_overwritten_args("stat_function()", "mapping", "group")
+  }
+  if (!is.null(data)) {
+    warn_overwritten_args("stat_function()", "data", "group")
+  }
+
+
 }
 
 #' @rdname ggplot2-ggproto

Original file line number	Diff line number	Diff line change
`@@ -81,6 +81,16 @@ stat_function <- function(mapping = NULL, data = NULL,`
`81`	`81`	`...`
`82`	`82`	`)`
`83`	`83`	`)`
	`84`	`+`
	`85`	`+ # Warn if supplied mapping and/or data is going to be overwritten`
	`86`	`+ if (!is.null(mapping)) {`
	`87`	`+ warn_overwritten_args("stat_function()", "mapping", "group")`
	`88`	`+ }`
	`89`	`+ if (!is.null(data)) {`
	`90`	`+ warn_overwritten_args("stat_function()", "data", "group")`
	`91`	`+ }`
	`92`	`+`
	`93`	`+`
`84`	`94`	`}`
`85`	`95`
`86`	`96`	`#' @rdname ggplot2-ggproto`