在reactable R中选定行的下方插入边框

library(reactable)

# 创建一个示例数据框
data <- data.frame(
  Name = c("John", "Jane", "Mike", "Emily"),
  Age = c(25, 30, 35, 40),
  City = c("New York", "London", "Paris", "Tokyo")
)

# 创建reactable表格
reactable(data, 
          defaultColDef = colDef(
            minWidth = 100
          ),
          highlight = TRUE,
          bordered = TRUE,
          selection = "single",
          reactableOptions = list(
            border = function(selectedRowInfo) {
              if (!is.null(selectedRowInfo)) {
                selectedRow <- selectedRowInfo$rows[[1]]
                rows <- selectedRowInfo$rows
                rows <- rows[rows$index > selectedRow$index, ]
                rows$border <- TRUE
                rows
              }
            }
          )
)