library(dplyr)
library(dtrackr)
tmp = iris %>% track() %>% group_by(Species)
tmp %>% status(
long = p_count_if(Petal.Length>5),
short = p_count_if(Petal.Length<2),
.messages="{Species}: {long} long ones & {short} short ones"
) %>% history()
Run the code above in your browser using DataLab