Ensure computed breaks are not out-of-bounds

teunbrand · teunbrand · commit 2882abc81056 · 2022-12-11T23:31:43.000+01:00
diff --git a/R/scale-.r b/R/scale-.r
@@ -1071,6 +1071,7 @@ ScaleBinned <- ggproto("ScaleBinned", Scale,
         breaks <- seq(limits[1], limits[2], length.out = n.breaks + 2)
         breaks <- breaks[-c(1, length(breaks))]
       }
+      breaks <- oob_discard(breaks, limits)
 
       # Ensure terminal bins are same width if limits not set
       if (is.null(self$limits)) {

Original file line number	Diff line number	Diff line change
`@@ -1071,6 +1071,7 @@ ScaleBinned <- ggproto("ScaleBinned", Scale,`
`1071`	`1071`	`breaks <- seq(limits[1], limits[2], length.out = n.breaks + 2)`
`1072`	`1072`	`breaks <- breaks[-c(1, length(breaks))]`
`1073`	`1073`	`}`
	`1074`	`+ breaks <- oob_discard(breaks, limits)`
`1074`	`1075`
`1075`	`1076`	`# Ensure terminal bins are same width if limits not set`
`1076`	`1077`	`if (is.null(self$limits)) {`