在特定標籤的Shiny中摺疊sidebarpanel

Question

我有一個閃亮的應用程序，帶有多個標籤的側邊欄和主面板。我想摺疊一些標籤的sidebarpanel並顯示一些標籤。

我該怎麼辦？謝謝。

Answer 1

我真的不確定你真的需要「隱藏」，或者只是爲某些標籤指定一個側欄，並且對於某些不需要（請參閱ui部分）。 如果您需要隱藏側邊欄，請參閱（註釋）的服務器部分。

library(shiny) 
library(shinyjs) 

ui <- fluidPage(
    useShinyjs(), 
    navbarPage("", 
      tabPanel("tab", 
         div(id ="Sidebar",sidebarPanel(
         actionButton("showSidebar", "I am tab sidebar content") 
        )), 


         mainPanel(actionButton("showSidebar", "I am tab main content") 
        ) 
      ), 
      tabPanel("tab2", 
         div(id ="Sidebar2",sidebarPanel(
         actionButton("showSidebar", "I am tab2 sidebar content") 
        )), 


         mainPanel(actionButton("showSidebar", "I am tab2 main content") 
        ) 
      ), 
      tabPanel("tab3", 
         mainPanel(actionButton("showSidebar", "I dont have a sidebar") 
        ) 
      ) 

) 
) 

server <-function(input, output, session) { 
    # In case you need to hide them for some reason 
    # observeEvent(input$tabs == "tab", { 
    # shinyjs::hide(id = "Sidebar") 
    # }) 
} 

shinyApp(ui, server)