sliderInput 最大/最小文本标签

我目前正在开发具有多个滑块输入的仪表板。是否可以用文本替换最大和最小标签？例如，我的 min = 1 和 max = 10。我想将比例保持在 1 到 10 之间，同时让滑块标签分别显示为“较早”和“较晚”。

Thanks!

遗憾的是，简短的回答是否定的。如果不破解 JavaScript 中的底层代码，就无法重新标记滑块刻度（尽管有一些格式化参数）。

然而，你can通过向小部件标签传递一个使用内联 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)