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)
  }
}
r-lib/vctrs documentation built on Oct. 30, 2024, 8:54 a.m.