tests/testthat/test-grouper.R

test_that("Grouper works", {
  grp <- Grouper$new(A, B, C)
  
  .ser <- grp$serialize()
  expect_equal(
    length(.ser$args),
    3
  )
  
  expect_equal(grp$str(), "Grouper(group_on = [A, B, C])")
})

Try the deident package in your browser

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

deident documentation built on April 3, 2025, 6:14 p.m.