在 Shiny 中按窗口宽度折叠和展开面板

问题描述

我正在构建一个闪亮的应用程序，由一个侧边栏和一个主面板组成。因为我想让这个应用程序对移动设备友好，所以我想在屏幕变窄时默认折叠侧边栏。

我尝试过使用shinyBS::bsCollapse()。有了这个，我可以制作一个可折叠的侧边栏，但我仍然需要点击折叠/展开。

有没有一种方法可以通过根据用户的应用程序宽度自动折叠/展开它来使其具有响应性？或者其他解决方案？

一个最小的例子：

library(shiny)
library(shinyBS)

shinyApp(
    ui = fluidPage(
        column(width=3,bsCollapse(
                bsCollapsePanel("sidebar",selectInput("filter","A filter",c("default","primary"))))),column(width = 9,mainPanel(
                    p("mainpanel")
                ))),server = function(input,output,session) {}
)

解决方法

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

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

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