小编Thi*_*van的帖子

我在 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)

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