# NOT RUN {
df <- data.frame(
g = sample(rep(letters[1:3], 1:3)),
x = runif(6),
y = runif(6),
stringsAsFactors = FALSE
)
gf <- df %>% group_by(g)
gf %>% summarise(n = n())
gf %>% mutate(id = cur_group_id())
gf %>% summarise(row = cur_group_rows())
gf %>% summarise(data = list(cur_group()))
gf %>% summarise(data = list(cur_data()))
# }
Run the code above in your browser using DataLab