df <- data.table(
x = 1:5,
y = c("a", "a", "a", "b", "b")
)
df %>%
mutate.(
across.(c(x, y), ~ paste(cur_column.(), .x))
)
df %>%
summarize.(data = list(cur_data.()),
.by = y)
df %>%
mutate.(group_id = cur_group_id.(),
.by = y)
df %>%
mutate.(group_rows = cur_group_rows.(),
.by = y)
Run the code above in your browser using DataLab