If statement 内容闪亮的动态选项卡面板

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

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

---

在下面的代码中，我仅当tabpanel的数目为偶数时才添加该数目

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

     }
   ))

---

希望有帮助

感谢@SBista的帮助，但如果条件满足，我想显示一些内容。我想让所有的标签面板都在我闪亮但不同的标签上，以了解我的状况