r_select <- record(dplyr::select)
r_group_by <- record(dplyr::group_by)
r_summarise <- record(dplyr::summarise)
output <- dplyr::starwars |>
r_select(height, mass, species, sex) |>
bind_record(r_group_by, species, sex) |>
bind_record(r_summarise, mass = mean(mass, na.rm = TRUE))
read_log(output, style = "pretty")
read_log(output, style = "table")
read_log(output, style = "errors-only")
Run the code above in your browser using DataLab