Hide origin/right arguments that are deprecated

Author: teunbrand

R/stat-bin.R

@@ -37,15 +37,12 @@ StatBin <- ggproto(
     params
   },
 
-  extra_params = c("na.rm", "orientation"),
+  extra_params = c("na.rm", "orientation", "origin", "right"),
 
   compute_group = function(data, scales, binwidth = NULL, bins = NULL,
                            center = NULL, boundary = NULL,
                            closed = c("right", "left"), pad = FALSE,
-                           breaks = NULL, flipped_aes = FALSE, drop = "all",
-                           # The following arguments are not used, but must
-                           # be listed so parameters are computed correctly
-                           origin = NULL, right = NULL) {
+                           breaks = NULL, flipped_aes = FALSE, drop = "all") {
     x <- flipped_names(flipped_aes)$x
     bins <- compute_bins(
       data[[x]], scales[[x]],

R/stat-bin2d.R

@@ -9,7 +9,7 @@ StatBin2d <- ggproto(
   required_aes = c("x", "y"),
 
   compute_group = function(data, scales, binwidth = NULL, bins = 30,
-                           breaks = NULL, origin = NULL, drop = TRUE,
+                           breaks = NULL, drop = TRUE,
                            boundary = NULL, closed = NULL, center = NULL) {
 
     data$z <- data$weight %||% 1

R/stat-summary-2d.R

@@ -23,8 +23,10 @@ StatSummary2d <- ggproto(
     params
   },
 
+  extra_params = c("na.rm", "origin"),
+
   compute_group = function(data, scales, binwidth = NULL, bins = 30,
-                           breaks = NULL, origin = NULL, drop = TRUE,
+                           breaks = NULL, drop = TRUE,
                            fun = "mean", fun.args = list(),
                            boundary = 0, closed = NULL, center = NULL) {
     bins <- dual_param(bins, list(x = 30, y = 30))
@@ -106,10 +108,7 @@ StatSummary2d <- ggproto(
 #' d + stat_summary_hex()
 #' d + stat_summary_hex(fun = ~ sum(.x^2))
 #' }
-stat_summary_2d <- make_constructor(
-  StatSummary2d, geom = "tile",
-  omit = c("breaks", "origin")
-)
+stat_summary_2d <- make_constructor(StatSummary2d, geom = "tile")
 
 #' @export
 #' @rdname stat_summary_2d