特定のタブでシャイニーのサイドバーパネルを折りたたむ

Question

私は、サイドバーパネルと複数のタブを持つメインパネルを備えた光沢のあるアプリを持っています。私はいくつかのタブのサイドバーパネルを折りたたみ、いくつかのタブのためにそれを示したいと思います。

どうすればいいですか？ありがとう。

Answer 1

私は実際にあなたが本当に "隠す"か、またはいくつかのタブのためにサイドバーを指定する必要はないと確信していません。 サイドバーを非表示にする必要がある場合は、（コメント付きの）サーバー部分を参照してください。

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)