r - 如何在 R Shiny 中调整 sidebarPanel 的宽度而不影响后续的 sidebarPanel 宽度

Question

我正在尝试更改 R Shiny 中 sidebarPanel 的宽度，以便我的 mainPanel 有更多“空间”来并排显示两个图形。这些图形显示在 mainPanel 中各自的侧边栏面板中。因此存在三个侧边栏面板:第一个用于数据选择/选择以在其余两个侧边栏面板中显示。

但是，当我更改第一个 sidebarPanel 的宽度时，所有 sidebarPanel 都采用此宽度。我如何防止这种情况发生？

我用作示例的 ui.r 代码位于:
https://github.com/EconometricsBySimulation/2013-06-11-Shiny-Exploration/blob/master/ui.R

server.r 代码示例位于:
https://github.com/EconometricsBySimulation/2013-06-11-Shiny-Exploration/blob/master/server.R

我正在使用以下内容来调整 ui.r 中第一个 sidebarPanel 的宽度:

left=sidebarPanel(
         tags$head(
           tags$style(type="text/css", "select { width: 100px; }"), # defines width of dropdown panel
           tags$style(type='text/css', ".span4 { max-width: 150px; }") # defines width of panel containing dropdown panel
           ),

但如前所述，这会导致后续面板采用其宽度。
关于如何为第一个 sidebarPanel 的宽度保留这个或更窄的设置的任何想法，并使第二个(中间)和第三个(右)侧边栏面板的宽度各为剩余空间宽度的一半？

提前谢谢了!

Answer 1

使用 sidebarPanel看起来有点扭曲，wellPanel可能是更好的选择。请尝试以下操作:

 left=wellPanel(
   tags$style(type="text/css", '#leftPanel { width:200px; float:left;}'),
   id = "leftPanel",
   selectInput .... as before

这给面板一个 id 并指定为样式。对其他面板做类似的事情。