Question

在闪亮的仪表板应用中，我想在具有特定高度的框中放置几个（＆gt; 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，但我无法做到这一点。

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

1 个答案: