andr <- andromeda(cars = cars)
fun <- function(x) {
return(tibble::tibble(speed = x$speed[1], meanDist = mean(x$dist)))
}
result <- groupApply(andr$cars, "speed", fun)
result <- bind_rows(result)
result
# # A tibble: 19 x 2
# speed meanDist
#
# 1 4 6
# 2 7 13
# 3 8 16
# ...
close(andr)
Run the code above in your browser using DataLab