如何根据pickerInput选择更新shiny screenshotButton的CSS选择器？

针对tabBox内DataTables随pickerInput切换导致ID动态变化、固定选择器截图失效的问题，可以通过结合激活Tab的类选择器动态定位当前可见表格，同时保留紧凑截图效果，具体实现如下：

实现步骤与代码示例 #

1. 核心思路 #

利用tabBox激活Tab自带active类的特性，结合DataTables容器的固定类dataTables_wrapper编写动态选择器，确保始终选中当前显示的表格容器，无需依赖不稳定的自动生成ID。同时通过设置DataTables的dom参数去除冗余元素，实现紧凑截图。

2. 完整代码 #

library(shiny)
library(shinydashboard)
library(DT)
library(shinyscreenshot)
library(shinyWidgets)

ui <- dashboardPage(
  dashboardHeader(title = "动态表格截图"),
  dashboardSidebar(
    pickerInput(
      inputId = "data_choice",
      label = "选择数据集",
      choices = c("mtcars", "iris", "airquality"),
      selected = "mtcars"
    )
  ),
  dashboardBody(
    tabBox(
      id = "data_tabbox",
      width = 12,
      tabPanel(
        title = "数据表格",
        DTOutput("dynamic_table")
      )
    ),
    screenshotButton(
      # 动态选择当前激活Tab下的DataTables容器
      selector = ".tab-content > .active .dataTables_wrapper",
      label = "截图表格",
      filename = "table_screenshot"
    )
  )
)

server <- function(input, output, session) {
  output$dynamic_table <- renderDT({
    # 根据选择加载对应数据集
    target_data <- get(input$data_choice)
    # 设置dom="t"只保留表格主体，实现紧凑效果
    datatable(target_data, options = list(dom = "t"))
  })
}

shinyApp(ui, server)

3. 关键细节说明 #

• 动态选择器：.tab-content > .active .dataTables_wrapper 会精准定位当前激活Tab下的DataTables容器，不管表格自动生成的ID（如DataTables_Table_0、DataTables_Table_1）如何变化，都能选中正确的目标元素。
• 紧凑截图设置：通过datatable的options = list(dom = "t")，去除默认的搜索框、分页栏等元素，只保留表格主体，满足紧凑截图需求。
• 替代方案：如果需要直接选中表格元素而非容器，可将选择器改为 .tab-content > .active table[id^='DataTables_Table_']，利用属性选择器匹配ID前缀，同时结合激活Tab条件。

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