R/prepGroupCounts.R
prepGroupCounts.RdThis function is a wrapper to base::rle() that
does exactly this but is a little too picky about input values.
prepGroupCounts(x)list(n = rle$lengths, names = rle$values)
prepGroupCounts(c(1:3, 3:1))
#> $n
#> [1] 1 1 2 1 1
#>
#> $idx
#> [1] 1 2 4 5 6
#>
#> $names
#> [1] 1 2 3 2 1
#>
#> attr(,"class")
#> [1] "htmlTable_group_count" "list"