fix rep() with zero-length s2_xptr vectors

Author: paleolimbot

R/s2-xptr.R

@@ -54,7 +54,11 @@ validate_s2_xptr <- function(x) {
 
 #' @export
 rep.s2_xptr <- function(x, ...) {
-  new_s2_xptr(NextMethod(), class(x))
+  if (length(x) == 0) {
+    new_s2_xptr(list(), class(x))
+  } else {
+    new_s2_xptr(NextMethod(), class(x))
+  }
 }
 
 #' @method rep_len s2_xptr

tests/testthat/test-s2-xptr.R

@@ -20,6 +20,8 @@ test_that("s2_xptr validation works", {
 })
 
 test_that("s2_xptr subsetting and concatenation work", {
+  expect_length(rep(new_s2_xptr(list()), 10), 0)
+
   xptr <- new_s2_xptr(list(NULL, NULL))
   expect_identical(xptr[1], new_s2_xptr(list(NULL)))
   expect_identical(xptr[[1]], xptr[1])