如何在Shiny App中最小化sidebarLayout？

问题描述

我正在构建一个闪亮的应用程序，并且正在使用两个sidebarLayouts。我正在寻找一种最小化它们的方法。我尝试将每个sidebarLayout放到一个盒子中，示例代码：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),headerPanel("Here goes the heder"),box(sidebarLayout(
          sidebarPanel(textOutput("someinputs")),mainPanel(textOutput("someoutputs"))),width = 12,title = "BB",collapsible = T,collapsed = F
    
  )
)

server <- function(input,output) {
  
  output$someinputs <- renderText({
    "Here will go the inputs"
  })
  
  output$someoutputs <- renderText({
    "Here will go the outputs"
  })
  
  }

shinyApp(ui,server)

并获得此信息：

当我按下可折叠按钮时，布局不会折叠。为什么会这样呢？我该怎么办？还有其他方法吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

shiny shinyjs