tests/testthat/test-dust.grouped_df.R

In pixiedust: Tables so Beautifully Fine-Tuned You Will Believe It's Magic

context("Dust a grouped_df")

test_that("ungroup a grouped_df",
{
  expect_silent(
    dust(mtcars %>%
                 dplyr::group_by(am, vs))
  )
})

test_that("split a grouped_df",
{
  expect_silent(
    dust(mtcars %>%
           dplyr::group_by(am, vs),
         ungroup = FALSE)
  )
})