R Shiny 将tabPanel动态添加到tabsetPanel(使用renderUI)

发布于10月20日

我正在开发一个shiny 的应用程序，其中我使用tabsetPanel，当用户输入某些特定的输入时生成.因此，我想使用renderUI函数使tabsetPanel出现/消失.

我现在的挣扎是number of tabPanel个元素(tabsetPanel的论点)also depends on user input，顺便说一句:有时我需要1个，有时我想要更多tabPanels个.

怎么做？我试着在tabsetPanel参数中包含conditionPanel或简单if()...条件，但它(毫不奇怪…)没用.

推荐答案

干得好.这段代码相当不言自明.

library(shiny)
runApp(list(
  ui = pageWithSidebar(
    headerPanel('Dynamic Tabs'),
    sidebarPanel(
      numericInput("nTabs", 'No. of Tabs', 5)
    ),
    mainPanel(
      uiOutput('mytabs')  
    )
  ),
  server = function(input, output, session){
    output$mytabs = renderUI({
      nTabs = input$nTabs
      myTabs = lapply(paste('Tab', 1: nTabs), tabPanel)
      do.call(tabsetPanel, myTabs)
    })
  }
))