r - 如何降低 Shiny 输入小部件的高度？

Question

在一个 Shiny 的仪表板应用程序中，我想将几​​个 (>5) slider 输入放在一个具有特定高度的框内。 box() 中的 height 参数似乎只控制盒子本身的高度，内容( slider )溢出到盒子下方。我怎样才能使 slider 更小，以便它们都可以放入盒子中？ (我还有其他内容可以放入页面)。这是我的示例用户界面:

dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
      fluidRow(
      box(title="inputs",height="200px",
          sliderInput("in1","1",min = 0,max = 1, step=0.01,value = 0),
          sliderInput("in2","2",min = 0,max = 1, step=0.01,value = 0),
          sliderInput("in3","3",min = 0,max = 1, step=0.01,value = 0),
          sliderInput("in4","4",min = 0,max = 1, step=0.01,value = 0),
          sliderInput("in5","5",min = 0,max = 1, step=0.01,value = 0),
          sliderInput("in6","6",min = 0,max = 1, step=0.01,value = 0),
          sliderInput("in7","7",min = 0,max = 1, step=0.01,value = 0)
      )
  )))

将所有标签设为 NULL 会有所帮助，但理想情况下，我可以更好地控制大小/高度(并拥有标签)。

感谢您的任何提示。

Answer 1

我发现可以通过将小部件放在 div() 中并在那里设置高度来更改小部件的高度:

div(style="height: 27px;",
        sliderInput("in1",NULL,min = 0,max = 1, step=0.05,value = 0,ticks=F))

似乎也应该可以(并且更有效？)使用标签来做到这一点，例如 https://groups.google.com/forum/#!msg/shiny-discuss/3m7cq96mcBY/OEICaO_7Na0J ，但我无法做到这一点。