splres <- make_split_result(
values = c("hi", "lo"),
datasplit = list(hi = mtcars, lo = mtcars[1:10, ]),
labels = c("more data", "less data"),
subset_exprs = list(expression(TRUE), expression(seq_along(wt) <= 10))
)
splres2 <- add_to_split_result(splres,
values = "med",
datasplit = list(med = mtcars[1:20, ]),
labels = "kinda some data",
subset_exprs = quote(seq_along(wt) <= 20)
)
Run the code above in your browser using DataLab