This function is a wrapper to base::rle() that does exactly this but is a little too picky about input values.

prepGroupCounts(x)

Arguments

x

The vector to process

Value

list(n = rle$lengths, names = rle$values)

Examples

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"