remove vestigial bin2d_breaks()

Author: teunbrand

R/stat-bin2d.R

@@ -90,41 +90,3 @@ dual_param <- function(x, default = list(x = NULL, y = NULL)) {
     list(x = x, y = x)
   }
 }
-
-bin2d_breaks <- function(scale, breaks = NULL, origin = NULL, binwidth = NULL,
-                      bins = 30, closed = "right") {
-  # Bins for categorical data should take the width of one level,
-  # and should show up centered over their tick marks. All other parameters
-  # are ignored.
-  if (scale$is_discrete()) {
-    breaks <- scale$get_breaks()
-    return(-0.5 + seq_len(length(breaks) + 1))
-  } else {
-    if (!is.null(breaks)) {
-      breaks <- scale$transform(breaks)
-    }
-  }
-
-  if (!is.null(breaks))
-    return(breaks)
-
-  range <- scale$get_limits()
-
-  if (is.null(binwidth) || identical(binwidth, NA)) {
-    binwidth <- diff(range) / bins
-  }
-  check_number_decimal(binwidth)
-
-  if (is.null(origin) || identical(origin, NA)) {
-    origin <- round_any(range[1], binwidth, floor)
-  }
-  check_number_decimal(origin)
-
-  breaks <- seq(origin, range[2] + binwidth, binwidth)
-
-  # Check if the last bin lies fully outside the range
-  if (length(breaks) > 1 && breaks[length(breaks) - 1] >= range[2]) {
-    breaks <- breaks[-length(breaks)]
-  }
-  bins(breaks, closed)$fuzzy
-}