如何使用分组变量对kableExtra中的行进行分组？

library(kableExtra)
library(tidyverse)

MWE数据集（组=分组变量）

tib <- tibble(group = c("a", "a", "b", "c", "c", "c"),
              var = 1:6)

这是我要实现的目标：

kable(tib[, 2]) %>% 
  pack_rows(index = c("a" = 2, "b" = 1, "c" = 3))

但是，如果使用30个或更多唯一的分组标识符，则手动执行此操作很繁琐。所以我一直在尝试一种程序化方法

我尝试使用游程长度编码，但无法正常运行；例如，此代码失败：

kable(tib[, 2]) %>% 
  pack_rows(rle(tib$group)[2], rle(tib$group)[1])

对于解决此问题的任何指示或建议，我将不胜感激。