隐藏闪亮的任何tabpanel

Question

我有一个tabsetPanel()，我试图隐藏一个tabPanel()如果选择是两个，checkbox打开。我尝试了下面的代码来做到这一点，但它不起作用。

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()？

Answer 1

您可以用renderUI()做到这一点： 的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)