如何让gt包groupname_col分组的交互式表格初始全折叠？

使用gt包的groupname_col参数对表格分组后，结合opt_interactive()可实现分组折叠功能，但默认所有分组均为展开状态。希望设置让所有分组初始时处于折叠状态，以下是可复现代码：

library(gt)

iris |>
  gt(groupname_col = "Species") |>
  opt_interactive() 

可以通过opt_interactive()的row_group_as_list参数控制分组的初始折叠状态，设置initial = "collapsed"即可让所有分组默认折叠。修改后的代码如下：

library(gt)

iris |>
  gt(groupname_col = "Species") |>
  opt_interactive(
    row_group_as_list = list(initial = "collapsed")
  )

该参数会将分组转换为可折叠的列表形式，并指定初始状态为折叠，直接实现需求效果。

内容的提问来源于stack exchange，提问作者Quinten