function that returns a splitting function?

[daranzolin]

e.g.:

library(janitor)
library(hacksaw)

tabyl_split <- split_func(tabyl)

mtcars %>% tabyl_split(cyl, gear, am)