Warn too many breaks before doing seq() (#4132)

Author: yutannihilation

R/bin.R

@@ -85,14 +85,16 @@ bin_breaks_width <- function(x_range, width = NULL, center = NULL,
   # Small correction factor so that we don't get an extra bin when, for
   # example, origin = 0, max(x) = 20, width = 10.
   max_x <- x_range[2] + (1 - 1e-08) * width
+
+  if (isTRUE((max_x - origin) / width > 1e6)) {
+    abort("The number of histogram bins must be less than 1,000,000.\nDid you make `binwidth` too small?")
+  }
   breaks <- seq(origin, max_x, width)
 
   if (length(breaks) == 1) {
     # In exceptionally rare cases, the above can fail and produce only a
     # single break (see issue #3606). We fix this by adding a second break.
     breaks <- c(breaks, breaks + width)
-  } else if (length(breaks) > 1e6) {
-    abort("The number of histogram bins must be less than 1,000,000.\nDid you make `binwidth` too small?")
   }
 
   bin_breaks(breaks, closed = closed)