My deck

Some code

analysis.R

mtcars |>
  group_by(cyl) |>
  summarize(mean_mpg = mean(mpg))