inst/test/code/group-by-3.R

In seankross/mario:

library(dplyr)

mt <- mtcars %>%
  as_tibble() %>%
  filter(cyl < 8) %>%
  select(mpg, cyl, am) %>%
  arrange(cyl, am) %>%
  slice(1, 2, 5, 12, 17, 18)

mt %>%
  group_by(cyl, am)