replace interleave() with vec_interleave()

Author: teunbrand

NAMESPACE

@@ -84,8 +84,6 @@ S3method(guide_train,default)
 S3method(guide_transform,default)
 S3method(heightDetails,titleGrob)
 S3method(heightDetails,zeroGrob)
-S3method(interleave,default)
-S3method(interleave,unit)
 S3method(limits,Date)
 S3method(limits,POSIXct)
 S3method(limits,POSIXlt)

R/geom-violin.R

@@ -217,7 +217,7 @@ create_quantile_segment_frame <- function(data, draw_quantiles) {
 
   # We have two rows per segment drawn. Each segment gets its own group.
   data_frame0(
-    x = interleave(violin.xminvs, violin.xmaxvs),
+    x = vec_interleave(violin.xminvs, violin.xmaxvs),
     y = rep(ys, each = 2),
     group = rep(ys, each = 2)
   )

R/utilities-matrix.R

@@ -10,16 +10,3 @@ cunion <- function(a, b) {
 
   cbind(a, b[setdiff(names(b), names(a))])
 }
-
-# Interleave (or zip) multiple units into one vector
-interleave <- function(...) UseMethod("interleave")
-#' @export
-interleave.unit <- function(...) {
-  units <- lapply(list(...), as.list)
-  interleaved_list <- interleave.default(!!!units)
-  inject(unit.c(!!!interleaved_list))
-}
-#' @export
-interleave.default <- function(...) {
-  vec_interleave(...)
-}

tests/testthat/_snaps/utilities.md

@@ -50,7 +50,3 @@
 
     Only one of `boundary` and `center` may be specified.
 
-# interleave() checks the vector lengths
-
-    Can't recycle `..1` (size 4) to match `..2` (size 0).
-

tests/testthat/test-utilities.R

@@ -132,10 +132,6 @@ test_that("cut_*() checks its input and output", {
   expect_snapshot_error(cut_width(1:10, 1, center = 0, boundary = 0.5))
 })
 
-test_that("interleave() checks the vector lengths", {
-  expect_snapshot_error(interleave(1:4, numeric()))
-})
-
 test_that("vec_rbind0 can combined ordered factors", {
 
   withr::local_options(lifecycle_verbosity = "warning")