在可反应的 R 中的选定行下方插入边框

Insert borders underneath selected rows in reactable R

我想在 R 中的 Reactable table 的特定行下方放置黑色边框。例如,以 cars 数据框为例,我想在使用以下代码生成的 table 的第 2 行和第 4 行下方放置一条水平黑线:

library(reactable)
reactable(head(cars))

我希望输出如下图所示:

您可以使用 rowStyle 参数,如:

library(reactable)
reactable(head(cars),
          rowStyle = function(index) {
            if (index %in% c(3, 5)) {
              list(`border-top` = "thin solid")
            }
          })