# 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.(data = c(a, b))
test_df %>%
nest.(data = where(is.numeric))
# }
Run the code above in your browser using DataLab