将label
显示为内嵌(滑块左侧)的sliderInput
部分的最佳方式是什么,而不是在其上方?
使用CSS或通过覆盖它呈现为HTML的方式更好吗?
可以像这样生成滑块列表:
# in server.R
output$sliders <- renderUI({
lapply(vars, function (x) {
sliderInput(inputId = str_c("slider_", x), label = x)
})
})
...所以制作滑块列表的好方法是<table>
,每个输入都是<tr>
(在<th>
s中有标签,滑块位于<td>
S)?
这只是按顺序呈现它们:
# in ui.R
uiOutput("sliders")
首选(表格)替代方案更像是“混音器”面板,带有水平滑块: