tests/testthat/test-dust.grouped_df.R

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)
  )
})

Try the pixiedust package in your browser

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

pixiedust documentation built on Jan. 16, 2021, 5:25 p.m.