内容闪亮的动态标签面板

Question

我正在尝试构建一个动态闪亮的应用程序，如果满足条件，我想生成包含一些内容的 tabpanel。我正在上传一个数据集，条件将在每个变量的 class() 上。这是一个小的复制品，条件可能是偶数/奇数（我从 Stack 上回答的问题中举了这个例子）任何帮助将不胜感激。

    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)
    })
  }
))

Answer 1

在下面的代码中，我仅在数字为偶数时添加选项卡面板的数量。

 library(shiny)
   runApp(list(
     ui = pageWithSidebar(
       headerPanel('Dynamic Tabs'),
       sidebarPanel(
         numericInput("nTabs", 'No. of Tabs', 2)
       ),
       mainPanel(
         uiOutput('mytabs')  
       )
     ),
     server = function(input, output, session){

      observe({
        if(input$nTabs %% 2 == 0){
          output$mytabs = renderUI({
            nTabs = isolate(input$nTabs)
            myTabs = lapply(paste('Tab', 1: nTabs), tabPanel)
            do.call(tabsetPanel, myTabs)
          })
        }
      })

     }
   ))

希望对你有帮助！