replace single use internal functions

teunbrand · teunbrand · commit 20fa50f80612 · 2024-08-01T11:43:12.000+02:00
diff --git a/R/bin.R b/R/bin.R
@@ -25,8 +25,6 @@ bins <- function(breaks, closed = "right",
   )
 }
 
-is_bins <- function(x) inherits(x, "ggplot2_bins")
-
 #' @export
 print.ggplot2_bins <- function(x, ...) {
   n <- length(x$breaks)
@@ -133,7 +131,7 @@ bin_breaks_bins <- function(x_range, bins = 30, center = NULL,
 # Compute bins ------------------------------------------------------------
 
 bin_vector <- function(x, bins, weight = NULL, pad = FALSE) {
-  check_object(bins, is_bins, "a {.cls ggplot2_bins} object")
+  check_inherits(bins, "ggplot2_bins", "a {.cls ggplot2_bins} object")
 
   if (all(is.na(x))) {
     return(bin_out(length(x), NA, NA, xmin = NA, xmax = NA))

Original file line number	Diff line number	Diff line change
`@@ -25,8 +25,6 @@ bins <- function(breaks, closed = "right",`
`25`	`25`	`)`
`26`	`26`	`}`
`27`	`27`
`28`		`-is_bins <- function(x) inherits(x, "ggplot2_bins")`
`29`		`-`
`30`	`28`	`#' @export`
`31`	`29`	`print.ggplot2_bins <- function(x, ...) {`
`32`	`30`	`n <- length(x$breaks)`
`@@ -133,7 +131,7 @@ bin_breaks_bins <- function(x_range, bins = 30, center = NULL,`
`133`	`131`	`# Compute bins ------------------------------------------------------------`
`134`	`132`
`135`	`133`	`bin_vector <- function(x, bins, weight = NULL, pad = FALSE) {`
`136`		`- check_object(bins, is_bins, "a {.cls ggplot2_bins} object")`
	`134`	`+ check_inherits(bins, "ggplot2_bins", "a {.cls ggplot2_bins} object")`
`137`	`135`
`138`	`136`	`if (all(is.na(x))) {`
`139`	`137`	`return(bin_out(length(x), NA, NA, xmin = NA, xmax = NA))`