Reactable实现R Shiny三级嵌套交互式表格问题求助

你遇到的问题是三级嵌套表格调用了最外层表格的索引，本质是二级表格的详情函数中，错误引用了全局数据集的行索引，而非当前二级表格子集的索引。Reactable完全支持三级甚至更多层级的嵌套，只需修正索引关联逻辑即可。

错误原因分析 #

在二级表格的details函数中，你使用了：

third_lvl = data_level_3[data_level_3$`level_2_id` == data_level_2$`level_2_id`[index2], ]

这里的index2是当前二级表格（sec_lvl）的行索引，但data_level_2是全局的完整二级数据集，不是当前展开行对应的子集。这会导致匹配到全局数据集中第index2行的level_2_id，而非当前二级表格行对应的ID，从而返回错误的三级数据。

修正后的代码 #

只需将二级表格详情函数中的data_level_2替换为当前二级表格的子集sec_lvl，即可正确关联三级数据：

# 一级表格数据
data_level_1 <- rv$filtered_data %>%
  mutate("level_1_id" = paste0(`Return Name`, `Table Group`)) %>%
  distinct(level_1_id, `Return Name`, `Table Group`, `Table`) %>%
  count(level_1_id, `Return Name`, `Table Group`, name = "Number of Tables")

# 二级表格数据
data_level_2 <- rv$filtered_data %>%
  mutate("level_1_id" = paste0(`Return Name`, `Table Group`)) %>%
  mutate("level_2_id" = paste0(`Return Name`, `Table Group`, `Table`)) %>%
  select(-c(`Return Name`, `Table Group`)) %>%
  count(level_1_id, level_2_id, `Table`, name = "Number of Cells")

# 三级表格数据
data_level_3 <- rv$filtered_data %>%
  mutate(level_2_id = paste0(`Return Name`, `Table Group`, `Table`)) %>%
  select(-c(`Return Name`, `Table Group`, `Table`)) %>%
  select(level_2_id, `Cell`, `Row Label`, `Column Label`, `Cell Label`)

# 创建三级嵌套Reactable表格
reactable(data_level_1,
          columns = list(
            "level_1_id" = colDef(show = TRUE),
            "Return Name" = colDef(name = "Return Name"),
            "Table Group" = colDef(name = "Table Group"),
            "Number of Tables" = colDef(name = "Number of Tables")
          ),
          defaultPageSize = 5,
          theme = table_styling,
          highlight = TRUE,
          bordered = TRUE,
          defaultColDef = colDef(
            headerStyle = list(background = header_background, color = header_text)
          ),
          details = function(index) {
            # 获取当前一级行对应的二级子集
            sec_lvl <- data_level_2[data_level_2$level_1_id == data_level_1$level_1_id[index], ]
            
            reactable(data = sec_lvl,
                      columns = list(
                        "level_1_id" = colDef(show = TRUE),
                        "level_2_id" = colDef(show = TRUE),
                        "Table" = colDef(name = "Table"),
                        "Number of Cells" = colDef(name = "Number of Cells")
                      ),
                      defaultPageSize = 5,
                      theme = table_styling,
                      highlight = TRUE,
                      bordered = TRUE,
                      defaultColDef = colDef(
                        headerStyle = list(background = header_background, color = header_text)
                      ),
                      details = function(index2) {
                        # 关键修正：从当前二级子集sec_lvl中取对应的level_2_id
                        target_level2_id <- sec_lvl$level_2_id[index2]
                        third_lvl <- data_level_3[data_level_3$level_2_id == target_level2_id, ]
                        
                        reactable(data = third_lvl,
                                  columns = list(
                                    "level_2_id" = colDef(show = TRUE),
                                    "Cell" = colDef(name = "Cell"),
                                    "Row Label" = colDef(name = "Row Label"),
                                    "Column Label" = colDef(name = "Column Label"),
                                    "Cell Label" = colDef(name = "Cell Label")
                                  ),
                                  defaultPageSize = 5,
                                  theme = table_styling,
                                  highlight = TRUE,
                                  bordered = TRUE,
                                  defaultColDef = colDef(
                                    headerStyle = list(background = header_background, color = header_text)
                                  ))
                      })
          })

替代R包推荐 #

如果后续需要更简化的嵌套表格开发，可以考虑：

• reactablefmtr：基于Reactable的扩展包，提供更简洁的嵌套语法和预设样式，减少手动编写细节函数的工作量。
• DT：支持通过JavaScript实现嵌套表格，灵活性高，但需要一定的JS基础来处理层级关联逻辑。

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