bind_list if no names add names

[trinker]

Basically a step of setNames(1:length(.)) is needed:

(vs_change <- change_index(mtcars[["vs"]]))
split_index(mtcars, vs_change) %>%
#setNames(1:length(.))%>%
    tidy_list()

## > split_index(mtcars, vs_change) %>%
## + #setNames(1:length(.))%>%
## +     tidy_list()
## Error in data.frame(list.names, do.call(rbind, x), row.names = NULL, check.names = FALSE,  : 
##   arguments imply differing number of rows: 0, 32


(vs_change <- change_index(mtcars[["vs"]]))
split_index(mtcars, vs_change) %>%
setNames(1:length(.))%>%
    tidy_list()