# NOT RUN {
code =
"library(dplyr)
library(palmerpenguins)
penguins %>%
select(species, bill_length_mm) %>%
group_by(species) %>%
arrange(desc(bill_length_mm), .by_group = TRUE) %>%
slice(1)"
tidydatatutor::go_code(code)
# }
Run the code above in your browser using DataLab