Remove unneeded uses of ...

hadley · Dec 27, 2011 · f88faa4 · f88faa4
1 parent 5f2a64d
commit f88faa4
Show file tree

Hide file tree

Showing 9 changed files with 9 additions and 9 deletions.
diff --git a/R/geom-bar.r b/R/geom-bar.r
@@ -10,7 +10,7 @@
 #' geom_plot(geom_bar(width = 0.05), df)
 #' geom_plot(geom_bar(list(colour = "black")), df)
 #' geom_plot(geom_bar(list(fill = "red")), df)
-geom_bar <- function(aesthetics = list(), width = NULL, na.rm = FALSE, ...) {
+geom_bar <- function(aesthetics = list(), width = NULL, na.rm = FALSE) {
   geom_from_call("bar")
 }
 

diff --git a/R/geom-line.r b/R/geom-line.r
@@ -7,7 +7,7 @@
 #' geom_plot(geom_line(), df)
 #' geom_plot(geom_line(list(colour = "red")), df)
 #' geom_plot(geom_line(list(size = 3)), df)
-geom_line <- function(aesthetics = list(), arrow = NULL, lineend = "butt", linejoin = "round", linemitre = 1, na.rm = FALSE, ...) {
+geom_line <- function(aesthetics = list(), arrow = NULL, lineend = "butt", linejoin = "round", linemitre = 1, na.rm = FALSE) {
   geom_from_call(c("line", "path"))
 }
 

diff --git a/R/geom-path.r b/R/geom-path.r
@@ -15,7 +15,7 @@
 #' geom_plot(geom_path(list(size = 3)), df)
 #'
 #' geom_plot(geom_path(list(x = 1:10, y = 10:1)))
-geom_path <- function(aesthetics = list(), arrow = NULL, lineend = "butt", linejoin = "round", linemitre = 1, na.rm = FALSE, ...) {
+geom_path <- function(aesthetics = list(), arrow = NULL, lineend = "butt", linejoin = "round", linemitre = 1, na.rm = FALSE) {
   geom_from_call("path")
 }
 

diff --git a/R/geom-point.r b/R/geom-point.r
@@ -8,7 +8,7 @@
 #' geom_plot(geom_point(list(size = 3, shape = 15)), df)
 #'
 #' geom_plot(geom_point(list(x = 1:10, y = 10:1)))
-geom_point <- function(aesthetics = list(), na.rm = FALSE, ...) {
+geom_point <- function(aesthetics = list(), na.rm = FALSE) {
   geom_from_call("point")
 }
 

diff --git a/R/geom-raster.r b/R/geom-raster.r
@@ -19,7 +19,7 @@
 #'   pp20$fill <- cscale(pp20$z, seq_gradient_pal())
 #' }
 #' geom_plot(geom_raster(), pp20)
-geom_raster <- function(aesthetics = list(), na.rm = FALSE, ...) {
+geom_raster <- function(aesthetics = list(), na.rm = FALSE) {
   geom_from_call("raster")
 }
 

diff --git a/R/geom-rect.r b/R/geom-rect.r
@@ -4,7 +4,7 @@
 #'
 #' @family rectangular geoms
 #' @export
-geom_rect <- function(aesthetics = list(), na.rm = FALSE, ...) {
+geom_rect <- function(aesthetics = list(), na.rm = FALSE) {
   geom_from_call("rect")
 }
 

diff --git a/R/geom-ribbon.r b/R/geom-ribbon.r
@@ -12,7 +12,7 @@
 #' geom_plot(geom_ribbon(), df)
 #' geom_plot(geom_ribbon(list(colour = "red")), df)
 #' geom_plot(geom_ribbon(list(colour = "red", fill = NA)), df)
-geom_ribbon <- function(aesthetics = list(), ...) {
+geom_ribbon <- function(aesthetics = list()) {
   geom_from_call(c("ribbon", "line"))
 }
 

diff --git a/R/geom-step.r b/R/geom-step.r
@@ -24,7 +24,7 @@ aes_icon.step <- function(geom) {
 # Data and munching ----------------------------------------------------------
 
 #' @S3method geom_data step
-geom_data.step <- function(geom, data, ...) {
+geom_data.step <- function(geom, data) {
   stairstep(data, geom$direction)
 }
 

diff --git a/R/geom-tile.r b/R/geom-tile.r
@@ -20,7 +20,7 @@
 #' }
 #' geom_plot(geom_tile(), pp20)
 #' geom_plot(geom_tile(list(width = 0.95, height = 0.95)), pp20)
-geom_tile <- function(aesthetics = list(), na.rm = FALSE, ...) {
+geom_tile <- function(aesthetics = list(), na.rm = FALSE) {
   geom_from_call("tile")
 }