r - 侧边栏面板/侧边栏面板中的 R Shiny Collapsible Boxes 带有多个全尺寸的可折叠框

Question

我想创建一个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", "Blue"),
        actionButton("f2red", "Red"),
        style = "success"
      ),
      
     
    )
   
  )
)

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

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

不幸的是，此解决方案仅在侧边栏面板中创建一个框。我想使用与侧边栏面板一样大的可折叠盒子，或者将面板替换为几个并排放置的盒子。我应该怎么做才能实现这一目标？

提前非常感谢！