slice_block function

Sample complete groups from a data frame