光沢のあるタブパネルを非表示

Question

私はtabsetPanel()を持っています。選択肢が2でcheckboxがオンの場合、私はtabPanel()を隠そうとします。私はそれを行うには、次のコードを試したが、動作しません。

UI

shinyUI(
    fluidPage(
    titlePanel("Hello Shiny!"), 
    sidebarLayout(
    sidebarPanel(
     fluidRow(
     column(5, 
       radioButtons("radio", label = h5("Data uploaded"), 
          choices = list("Aff" = 1, "Cod" = 2, 
              "Ill" = 3),selected = 1) 
     )), 
     checkboxInput("checkbox", "cheb", value = F) 
), 
    mainPanel(
     tabsetPanel(
     tabPanel("Plot", "plot1"), 
     conditionalPanel(
      condition = "input.radio !=2 && input.checkbox == false", 
     tabPanel("Summary", "summary1") 
     ), 
     tabPanel("Table", "table1") 
    ) 
    ) 
) 

) 
) 

サーバー

shinyServer(function(input,output,session){ 

}) 

どのように私はtabPanel()を非表示にできますか？あなたがrenderUI()でそれを行うことができ

Answer 1

： renderUI() 以内リストでtabpanels()を作成し、条件付きで三番目に追加： if(input$radio == 2 & !input$checkbox) をし、その後do.call(tabsetPanel, panels)で全体tabsetPanel()を返します。

ui <- shinyUI(
    fluidPage(
    titlePanel("Hello Shiny!"), 
    sidebarLayout(
     sidebarPanel(
     fluidRow(
      column(5, 
       radioButtons("radio", label = h5("Data uploaded"), 
           choices = list("Aff" = 1, "Cod" = 2, 
              "Ill" = 3),selected = 1) 
     )), 
     checkboxInput("checkbox", "cheb", value = F) 
    ), 
     mainPanel(
      uiOutput("summary") 
     ) 
    ) 
) 
) 

server <- shinyServer(function(input,output,session){ 

    output$summary <- renderUI({ 
     panels <- list(
     tabPanel("Plot", "plot1"), 
     tabPanel("Table", "table1")   
    ) 
     if(input$radio == 2 & !input$checkbox) panels[[3]] <- tabPanel("Summary", "summary1") 
     do.call(tabsetPanel, panels) 
    }) 

}) 

shinyApp(ui, server)