R 闪亮可折叠侧边栏

Question

我在 R 中创建了以下应用程序模板：

 library(shiny)
 library(shinyjs)

 ui <- fluidPage(
 useShinyjs(),
 navbarPage("",actionButton("toggleSidebar", "toggle", icon = 
 icon("database")),
          tabPanel("tab",
                  div( id ="Sidebar",sidebarPanel(
                  )),mainPanel() ))))


   server <-function(input, output, session) {
   observeEvent(input$toggleSidebar, {
   shinyjs::toggle(id = "Sidebar")
  }) }


 shinyApp(ui, server)

该应用程序将在侧边栏中创建一个切换按钮。该按钮应该出现在导航栏中，而不是在侧边栏上方。实际的切换按钮出现在单词选项卡旁边的上方。然而，它是不可见的。

Answer 1

您提到的不可见部分实际上是您拥有“”的空标题参数。如下所示，将切换按钮置于标题位置：

 library(shiny)
 library(shinyjs)

 ui <- fluidPage(
 useShinyjs(),
 navbarPage(actionButton("toggleSidebar", "toggle", icon = 
 icon("database")),
          tabPanel("tab",
                  div( id ="Sidebar",sidebarPanel(
                  )),mainPanel() )))


   server <-function(input, output, session) {
   observeEvent(input$toggleSidebar, {
   shinyjs::toggle(id = "Sidebar")
  }) }


 shinyApp(ui, server)