我在Copilot的帮助下解决了这个问题。你可以使用一个JavaScript函数来检查该行是否有任何子行，如果有，它就会添加一个边框：

library(reactable)

data <- MASS::Cars93[10:22, c("Manufacturer", "Model", "Type", "Price", "MPG.city")]

reactable(
  data,
  groupBy = "Manufacturer",
  defaultExpanded = TRUE,
  rowStyle = JS("function(rowInfo) {
    if (rowInfo.subRows.length) {
      return { borderBottom: '3px solid #800080' }
    }
  }"),
)

字符串