内容が光沢のある動的タブパネル

Question

動的な光沢のあるアプリを構築しようとしています。条件が満たされていれば、いくつかの内容のタブパネルを生成したいと思います。私はデータセットをアップロードしています。条件は各変数のclass（）にあります。ここでは小さな再現があり、条件は偶数/奇数になる可能性があります（Stackedでanswerdだった質問からこの例を取っ​​た）。助けてくれれば幸いです。

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

    } 
    )) 

はそれが役に立てば幸い！