Make close_end implicit in ... in chop_n(), chop_equally() an…

…d `chop_evenly()`.

The default has changed to `close_end = TRUE` anyway.

R/chop-by-group-size.R

@@ -90,30 +90,28 @@ chop_deciles <- function(x, ...) {
 #' elements, you may get fewer `groups` than requested. If so, a warning will
 #' be emitted. See the examples.
 #'
-#'
-#'
 #' @family chopping functions
 #'
 #' @export
 #' @order 1
 #' @examples
 #' chop_equally(1:10, 5)
 #'
-#' # You can't always guarantee `groups` groups:
+#' # You can't always guarantee equal-sized groups:
 #' dupes <- c(1, 1, 1, 2, 3, 4, 4, 4)
 #' quantile(dupes, 0:4/4)
 #' chop_equally(dupes, 4)
+#' # Or as many groups as you ask for:
+#' chop_equally(c(1, 1, 2, 2), 3)
 chop_equally <- function (
                   x,
                   groups,
                   ...,
                   labels    = lbl_intervals(),
                   left      = is.numeric(x),
-                  close_end = TRUE,
                   raw       = TRUE
                 ) {
-  chop(x, brk_equally(groups), ..., labels = labels, left = left,
-         close_end = close_end, raw = raw)
+  chop(x, brk_equally(groups), ..., labels = labels, left = left, raw = raw)
 }
 
 
@@ -159,10 +157,9 @@ chop_n <- function (
             x,
             n,
             ...,
-            close_end = TRUE,
             tail = "split"
           ) {
-  res <- chop(x, brk_n(n, tail = tail), ..., close_end = close_end)
+  res <- chop(x, brk_n(n, tail = tail), ...)
   if (tail == "split" && max(tabulate(res)) > n) {
     warning("Some intervals contain more than ", n, " elements")
   }

R/chop-by-width.R

@@ -47,8 +47,6 @@ chop_width <- function (
 #' @inheritParams chop
 #' @inherit chop-doc params return
 #'
-#' @details `chop_evenly()` sets `close_end = TRUE` by default.
-#'
 #' @family chopping functions
 #'
 #' @export
@@ -59,10 +57,9 @@ chop_width <- function (
 chop_evenly <- function (
                  x,
                  intervals,
-                 ...,
-                 close_end = TRUE
+                 ...
                ) {
-  chop(x, brk_evenly(intervals), ..., close_end = close_end)
+  chop(x, brk_evenly(intervals), ...)
 }