R reactable -展开/解组由groupBy()创建的单个项目组

Question

我正在尝试使用Shiny中的reactable生成一个交互表，它只为在单个键变量下包含多个值的行创建可扩展的组。

library(reactable)
library(data.table)

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

reactable(data, groupBy = "Manufacturer")

​

上面的表格只显示了Chrylser下的一个条目-我希望它自动展开，或者理想情况下根本没有展开箭头，并在一行上显示所有信息。

一些乱七八糟的代码生成了一个表格，其中大致显示了我想要的内容：

data_unique <- unique(data, by = "Manufacturer")
data_dups <- unique(data[duplicated(data, by = "Manufacturer")]$Manufacturer)
reactable(data_unique,
          columns = list(Manufacturer = colDef(details = function(index){
                                               if(data_unique[index]$Manufacturer %in% data_dups){
                                                  reactable(data[Manufacturer == data_unique[index]$Manufacturer,
                                                                                             c("Model", "Type")])
                                                  }})))

​

Chrylser现在不再有一个展开按钮，并在一行中显示其所有信息。主要问题是展开按钮会产生一个单独的表，该表不会与主表对齐。我喜欢第一个示例使用groupBy()产生的行为，所以理想情况下我应该将两者结合起来。谢谢。

Answer 1

正如您所说的，您希望在shiny中使用它，我可以考虑使用JavaScript自动触发单击事件：

library(shinyjs)

ui <- fluidPage(useShinyjs(), reactable(data, groupBy = "Manufacturer"))

server <- function(input, output, session) {
   session$onFlushed(function() {
      runjs('$(".rt-td>div>span").filter(function(idx, el) {return $(el).text().includes("(1)")}).trigger("click")')
   })
}

shinyApp(ui, server)

Answer 2

您可以简单地使用“aggregate”函数来实现这一点-

示例：

 reactable(data,
                 groupBy = c("Manufacturer"),
                 resizable = TRUE,
                 ......
                 columns = list("Model" = colDef(aggregate = "unique"),
                                "Type" = colDef(aggregate = "unique")))