如何减少闪亮输入小部件的高度？

Question

在闪亮的仪表板应用程序中,我想在具有特定高度的框中放置几个​​(> 5)滑块输入.box()中的height参数似乎只控制框本身的高度,内容(滑块)溢出框下方.如何使滑块更小,以便它们都能放入盒子内？(我还有其他东西适合页面).继承我的例子ui:

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,但我无法制作那工作.