shuffle_within_groups is broken when length of vector is 1 #19
Description
Alternate implementation from the docs for sample():
resample <- function(x, ...) x[sample.int(length(x), ...)]
{{ message }}
Alternate implementation from the docs for sample():
resample <- function(x, ...) x[sample.int(length(x), ...)]