inst/test/code/group-by-slice-1.R

In seankross/mario:

library(dplyr)

mt <- mtcars %>%
  as_tibble() %>%
  select(mpg, cyl, hp) %>%
  group_by(cyl) %>%
  slice(1:2) %>%
  ungroup() %>%
  group_by(cyl)

mt %>%
  slice(1)