tests/testthat/helper-type-dplyr.R

expect_drop <- function(x, value) {
  drop <- dplyr::group_by_drop_default(x)
  if (value) {
    expect_true(drop)
  } else {
    expect_false(drop)
  }
}

Try the vctrs package in your browser

Any scripts or data that you put into this service are public.

vctrs documentation built on May 29, 2024, 11:39 a.m.