Shiny应用中reactable详情函数嵌套tabsetPanel的标签行为异常问题

该问题是reactable动态详情渲染逻辑和Shiny tabsetPanel交互机制共同作用导致的，不属于单方bug：

• reactable的行详情是用户点击展开时才动态插入到页面DOM中的，默认情况下所有行生成的tabsetPanel没有唯一标识，Shiny的标签切换逻辑无法准确定位到对应tabsetPanel下的内容块，导致切换标签时不会隐藏旧内容，直接叠加展示新内容。
• 将selected设为空字符串时初始化无内容，是因为tabsetPanel找不到匹配value值的标签，默认隐藏了所有标签内容。

核心修改点有两个：

1. 给每个动态生成的tabsetPanel分配全局唯一ID，用当前行的index参数拼接生成即可，保证Shiny能精准识别每个tabsetPanel的作用域
2. 调整selected参数的取值逻辑，把空字符串选项映射为默认选中第一个标签，解决初始化无内容的问题

library(reactable)
library(tidyverse)
library(shiny)
library(shinydashboard)

main_table <- iris %>% 
  select(Species) %>% 
  unique()

nested1 <- iris %>% 
  select(Species, Sepal.Length)
nested2 <- iris %>% 
  select(Species, Sepal.Width)
nested3 <- iris %>% 
  select(Species, Petal.Length)
nested4 <- iris %>% 
  select(Species, Petal.Width)

ui <- dashboardPage(
  dashboardHeader(title = "Nested Reactables"),
  
  dashboardSidebar(
    radioButtons(inputId = "selected_detail",
                 label = "Select default tabPanel",
                 choices = c("detail1",
                             "detail2",
                             "detail3",
                             "detail4",
                             "empty string")
    )
  ),
  
  dashboardBody(
    reactableOutput("table")
  )
)

server <- function(input, output, session) {
  
  output$table <- renderReactable({
    
    reactable(
      data = main_table,
      details = function(index) {
        specie <- main_table$Species[[index]]
        tabsetPanel(
          # 新增唯一ID，用行index区分
          id = paste0("tabset_", index),
          # 调整selected逻辑，空字符串默认选第一个标签
          selected = if(input$selected_detail == "empty string") "detail1" else input$selected_detail,
          type = c("tabs"),
          tabPanel(
            value = "detail1",
            title = "Sepal Length",
            reactable(
              data = filter(nested1, Species == specie) %>% select(-Species),
              fullWidth = FALSE
            )
          ),
          tabPanel(
            value = "detail2",
            title = "Sepal Width",
            reactable(
              data = filter(nested2, Species == specie),
              fullWidth = FALSE
            )
          ),
          tabPanel(
            value = "detail3",
            title = "Pedal Length",
            reactable(
              data = filter(nested3, Species == specie),
              fullWidth = FALSE
            )
          ),
          tabPanel(
            value = "detail4",
            title = "Pedal Width",
            reactable(
              data = filter(nested4, Species == specie),
              fullWidth = FALSE
            )
          )
        )
      })
  })
}

shinyApp(ui = ui, server = server)

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