R 侧边栏面板中的闪亮可折叠框/侧边栏面板具有多个全尺寸可折叠框

问题描述

我想创建一个 Shiny 应用，它的一侧由不同的可打开框组成。在框中应该是按钮等。

到目前为止，我已经使用了以下解决方案：

library(shinythemes)
library(shinyBS)

fluidPage(
  theme = shinytheme("cosmo"),titlePanel(# app title/description
    "ShinyApp"),sidebarLayout(
    mainPanel(plotOutput("plot1")),sidebarPanel(
      bsCollapsePanel(
        "Color Selection",actionButton("f1blue","Blue"),actionButton("f1red","Red"),actionButton("f2blue",actionButton("f2red",style = "success"
      ),)
   
  )
)

这是一个可视化：我想避免这个“盒子中的盒子”。这是我当前的代码生成的：

它应该是这样的：只有可折叠，没有边框，侧边栏面板没有边距：

不幸的是，此解决方案仅在侧边栏面板中创建了一个框。我想使用可折叠的盒子，它和侧边栏面板一样大，或者用几个相互站立的盒子替换面板。我应该怎么做才能实现这一目标？

非常感谢！

解决方法

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

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

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