correct misleading error (#6043)

tidyverse · Aug 15, 2024 · 19d4550 · 19d4550
1 parent 11244c5
commit 19d4550
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/R/utilities-break.R b/R/utilities-break.R
@@ -24,6 +24,9 @@
 #' table(cut_width(runif(1000), 0.1, center = 0))
 #' table(cut_width(runif(1000), 0.1, labels = FALSE))
 cut_interval <- function(x, n = NULL, length = NULL, ...) {
+ if ((!is.null(n) && !is.null(length)) || (is.null(n) && is.null(length))) {
+ cli::cli_abort("Specify exactly one of {.var n} and {.var length}.")
+ }
  cut(x, breaks(x, "width", n, length), include.lowest = TRUE, ...)
 }
 

diff --git a/tests/testthat/_snaps/utilities-break.md b/tests/testthat/_snaps/utilities-break.md
@@ -0,0 +1,4 @@
+# cut_interval gives the correct
+
+ Specify exactly one of `n` and `length`.
+
diff --git a/tests/testthat/test-utilities-break.R b/tests/testthat/test-utilities-break.R
@@ -0,0 +1,3 @@
+test_that("cut_interval throws the correct error message", {
+ expect_snapshot_error(cut_interval(x = 1:10, width = 10))
+})