在不重新渲染的情况下生成动态数量的数据表

Question

我想知道处理动态数量的数据表的最佳做法是什么。这是一个玩具示例：

library(shiny)
library(DT)
ui <- shinyUI(fluidPage(
  mainPanel(
    sliderInput("number","Number of tables",1,10,1,1),
    uiOutput("tables")
  )))

server <- shinyServer(function(input, output, session) {

  observe({
    lapply(seq_len(input$number), function(i) {
      output[[paste0("table",i)]] <- DT::renderDataTable(head(mtcars))
    })
  })

  output$tables <- renderUI({
    lapply(seq_len(input$number), function(i) {
      DT::dataTableOutput(paste0("table",i))
    })
  })


})
# Run the application
shinyApp(ui = ui, server = server)

这种方法有点生硬，因为无论何时添加或删除单个数据表，您都必须重新呈现所有数据表。

有没有更好的方法来动态生成输出，不需要在循环中创建所有输出，因此每次发生更改时都重新创建所有输出？

Answer 1

我是insertUI 和removeUI 的作者。当应用于交互式输出时，您似乎在 insertUI 中发现了一个错误。我提交了issue for this in the Shiny repo 并会尽快处理。同时，一种解决方法是在对insertUI() 的调用中使用where = "beforeBegin" 而不是where = "beforeEnd"。有关详细信息，请参阅my answer DT 存储库中提交的原始问题。

Answer 2

[Edit] 答案已更新为 @Bárbara Borges 的解决方法（有关其工作原理的详细信息，请参阅她的答案）

这里是一个例子，但注意它适用于普通表（不刷新），但对于数据表，删除表时没有刷新但添加表时总是刷新。我认为这是由 DT 引起的，但尚未找到真正的原因。我发帖是希望有人可以改进这一点。

library(shiny)
library(DT)

numUI <- 0

ui <- shinyUI(fluidPage(
  mainPanel(
    sliderInput("number","Number of tables",1,10,1,1),
    tags$div(id="tables")
  )))

server <- shinyServer(function(input, output, session) {

  observe({
    if (input$number > numUI) {
      for (num in (numUI+1):input$number) {
        insertUI("#tables", "beforeBegin", DT::dataTableOutput(paste0("table", num)))
        output[[paste0("table",num)]] <- DT::renderDataTable(head(mtcars), server = FALSE)
      }
    }

    if (input$number < numUI) {
      for (num in (input$number+1):numUI) {
        removeUI(paste0("#table", num))
      }
    }

    numUI <<- input$number
  })

})
# Run the application
shinyApp(ui = ui, server = server)