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