# NOT RUN {
test_df <- data.table(
a = 1:10,
b = 11:20,
c = c(rep("a", 6), rep("b", 4)),
d = c(rep("a", 4), rep("b", 6)))
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