r - 在不同的选项卡中使用相同的 dataTableOutput

Question

是否有可能在多个选项卡中重用 dataTableOutput？我发现的唯一可能性是使用 dataTableOutput 有自己的行的布局，但我不希望它位于所有选项卡之上。

如果我只是多次调用 dataTableOutput，则不会打印任何表格。

编辑:

感谢 daattali 的回答，我几乎完成了这件事。我之前唯一没有提到的是，我需要以某种方式同步这两个表。目前，当我尝试通过代理相互更新时，整个系统在短时间内选择多行时会出现错误...

Answer 1

您不能使用相同的 id(因为同一页面上不能有两个具有相同 id 的元素)，但您可以做的是将表生成一次作为 react 值，然后简单地返回该值在渲染表函数中。这样做的好处是只运行一次用于生成表格的代码，并在您需要的任意多输出中重复使用该表格。

例子:

library(shiny)

ui <- fluidPage(
  tabsetPanel(
    tabPanel("tab1", "tab 1", DT::dataTableOutput("table1")),
    tabPanel("tab2", "tab 2", DT::dataTableOutput("table2"))
  )
)

server <- function(input, output, session) {
  table_data <- reactive({
    DT::datatable(iris)
  })
  output$table1 <- DT::renderDataTable(table_data())
  output$table2 <- DT::renderDataTable(table_data())
}

shinyApp(ui = ui, server = server)