# NOT RUN {
test_df <- data.table(
a = 1:5,
b = 6:10,
c = c(rep("a", 3), rep("b", 2)),
d = c(rep("a", 3), rep("b", 2))
)
test_df %>%
nest_by.()
test_df %>%
nest_by.(c, d)
test_df %>%
nest_by.(where(is.character))
test_df %>%
nest_by.(c, d, .keep = TRUE)
# }
Run the code above in your browser using DataLab