inline find_origin()

Author: teunbrand

R/utilities-break.R

@@ -76,8 +76,8 @@ cut_width <- function(x, width, center = NULL, boundary = NULL, closed = "right"
   }
   boundary <- as.numeric(boundary)
 
-  # Determine bins
-  min_x <- find_origin(x_range, width, boundary)
+  # Determine bins, find origin
+  min_x <- boundary + floor((x_range[1] - boundary) / width) * width
   # Small correction factor so that we don't get an extra bin when, for
   # example, origin = 0, max(x) = 20, width = 10.
   max_x <- max(x, na.rm = TRUE) + (1 - 1e-08) * width
@@ -86,12 +86,6 @@ cut_width <- function(x, width, center = NULL, boundary = NULL, closed = "right"
   cut(x, breaks, include.lowest = TRUE, right = (closed == "right"), ...)
 }
 
-# Find the left side of left-most bin
-find_origin <- function(x_range, width, boundary) {
-  shift <- floor((x_range[1] - boundary) / width)
-  boundary + shift * width
-}
-
 breaks <- function(x, equal, nbins = NULL, binwidth = NULL) {
   equal <- arg_match0(equal, c("numbers", "width"))
   if ((!is.null(nbins) && !is.null(binwidth)) || (is.null(nbins) && is.null(binwidth))) {