r - 循环以在 Shiny 的 tabsetPanel 中创建选项卡

Question

我正在尝试使用 lapply在 tabsetPanel 中创建多个选项卡在基于此示例的 Shiny 中:http://shiny.rstudio.com/gallery/creating-a-ui-from-a-loop.html .下面是我的 app.R代码。当我运行它时，它不会创建 5 个选项卡，也不会打印每个选项卡的名称。我究竟做错了什么？

library(shiny)

ui <- pageWithSidebar(
  headerPanel("xxx"),
  sidebarPanel(),
  mainPanel(
    tabsetPanel(id='t',
      lapply(1:5, function(i) {
        tabPanel(
          title=paste0('tab', i), 
          textOutput(paste0('a',i))
        )
      }) 
    )
  )
)

server <- function(input, output) {
  observe({
    print(input$t)
  })

  lapply(1:5, function(j) {
    output[[paste0('a',j)]] <- renderPrint({
      input$t
    })
  })
}

shinyApp(ui, server)

Answer 1

这有点棘手，因为 tabsetPanel不接受 tabset 的列表作为论据。您可以使用 do.call “取消列出”参数:

mainPanel(
    do.call(tabsetPanel, c(id='t',lapply(1:5, function(i) {
                  tabPanel(
                    title=paste0('tab', i), 
                    textOutput(paste0('a',i))
                  )
                })))
    )