我在 R Shiny 中创建了以下应用程序模板:
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)
该应用程序将在侧边栏中创建一个切换按钮。该按钮应出现在导航栏中,而不是侧边栏上方。实际的切换按钮出现在单词选项卡旁边的上方。然而,它是不可见的。
最佳答案
您提到的不可见部分实际上是您拥有“”的空标题参数。如下所示将其保留,将切换按钮放置在标题位置:
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)
关于R Shiny 可折叠侧边栏,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/56851696/