R Shiny：如何将数据表添加到动态创建的选项卡

问题描述：

我目前正在尝试创建动态创建的数据表，每个表都有自己的标签。选项卡的数量由用户确定。我已经使用了上的代码作为框架。

I am currently trying to create dynamically-created data tables that each have its own tab. The number of tabs is determined by the user. I have used the code from this post as a framework.

我能够动态创建选项卡，但是我不知道如何向选项卡添加数据表。数据表也由用户输入确定。
例如，在ui.R中，用户可以选择要查看的数据集：

I am able to create the tabs dynamically, but I can't figure out how to add data tables to the tabs. The data tables are determined by user input too. So, for example, say in ui.R, the user has the choice to pick which data sets they want to see:

ui.R

 library(shiny)
 shinyUI(fluidPage(
      titlePanel("Example"),
      sidebarLayout(
           sidebarPanel(
                selectInput("decision", label = "Choose Dataset", 
                            choices = list("mtcars" = "mtcars", 
                                           "iris" = "iris", 
                                           "precip" = "precip", 
                                           "quakes" = "quakes"), 
                            selected = NULL, multiple = TRUE)
           ),
           mainPanel(
                uiOutput('mytabs')
           )
      )
 ))

server.R

 library(shiny)
 library(ggplot2)

 shinyServer(function(input, output, session) {
      output$mytabs <- renderUI({
           nTabs = length(input$decision)
           myTabs = lapply(paste('dataset', 1:nTabs), tabPanel)
           do.call(tabsetPanel, myTabs)
      })
 })

所以，我想相应的数据集分别呈现在每个选项卡下的数据表中。

So, I would like the corresponding data sets rendered into data tables under each tab separately.

在此先感谢您提供所有帮助！

Thank you in advance for all of the help!

答

要执行所需的操作，您需要将 dataTableOutput 添加到 tabPanel 动态生成它们时，然后需要动态生成相应的 renderDataTable 。

To do what you want, you need to add dataTableOutput to your tabPanel as you dynamically generate them, and then you need to dynamically generate the corresponding renderDataTable.

执行此操作在服务器中：

Do this in your server:

library(DT) # need datatables package
server <- shinyServer(function(input, output, session) {

  output$mytabs <- renderUI({
    nTabs = length(input$decision)
    # create tabPanel with datatable in it
    myTabs = lapply(seq_len(nTabs), function(i) {
      tabPanel(paste0("dataset_",i),
        DT::dataTableOutput(paste0("datatable_",i))       
               )
      })

    do.call(tabsetPanel, myTabs)
  })

  # create datatables
  observe(
    lapply(seq_len(length(input$decision)), function(i) {
      output[[paste0("datatable_",i)]] <- DT::renderDataTable({
        as.data.frame(get(input$decision[i]))
      })
    })  
  )  
})

R Shiny：如何将数据表添加到动态创建的选项卡

相关推荐