/usr/share/doc/r-cran-vctrs/tests/testthat/helper-size.R

dwww Home | Show directory contents | Find package

expect_size <- function(object, n) {
  expect_identical(vec_size(object), vec_cast(n, int()))
}

zap_dimnames <- function(x) {
  attr(x, "dimnames") <- NULL
  x
}

Generated by dwww version 1.15 on Thu Jun 20 15:56:35 CEST 2024.