# NOT RUN {
splitBy((1:10)*10,c(2,2))
splitBy((1:10)*10,c(2,3,4))
# }
# NOT RUN {
expect_equivalent(splitBy((1:10)*10,c(2,2)) , list(c(10,20),c(30,40)))
expect_equivalent(splitBy((1:10)*10,c(2,3,4)) , list( c(10,20), c(30,40,50) ,c(60,70,80,90) ))
# }
Run the code above in your browser using DataLab