滑块输入最大/最小文本标签 [英] sliderInput Max/Min Text Labels

问题描述

我目前正在处理一个具有多个SliderInputs的仪表板。是否可以用文本替换最大和最小标签？例如，my min=1和max=10。我希望将比例保持在1到10之间，同时使滑块标签分别显示为"较早"和"较晚"。

谢谢！

推荐答案

遗憾的是，这里的简短答案是否定的；除非仔细研究底层代码，否则无法重新标记滑块标记(尽管有一些格式化参数)。

但是，您可以将标签传递给带有内联CSS样式的HTML对象，从而将标签添加到小部件标签中。确保设置小部件本身的宽度，以便所有内容都对齐，结果不会太差：

library(shiny)

ui <- fluidPage(

    sliderInput(inputId = 'slider', 
                label = div(style='width:300px;', 
                            div(style='float:left;', 'sooner'), 
                            div(style='float:right;', 'later')), 
                min = 0, max = 10, value = 5, width = '300px')

    )

server <- function(input, output) {

}

shinyApp(ui, server)

这篇关于滑块输入最大/最小文本标签的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！