如何让Shiny中sliderInput的最值支持手动输入？

方法一：利用原生sliderInput的隐藏功能 #

其实Shiny自带的sliderInput生成的蓝色数值框本身就支持手动输入，只是很多人没注意到。直接点击蓝色框就能输入数值，按回车或者点击页面其他区域后，滑块会自动同步到输入的数值，而且输入值会被自动限制在你设定的min和max范围内。

示例代码：

library(shiny)

ui <- fluidPage(
  sliderInput("range", "Your range（点击蓝色数值框可手动输入）",
              min = 0, max = 1000, value = c(400, 500)),
  # 实时显示当前范围，方便验证
  verbatimTextOutput("current_range")
)

server <- function(input, output) {
  output$current_range <- renderPrint({
    input$range
  })
}

shinyApp(ui, server)

方法二：使用shinyWidgets的增强滑块组件 #

如果想要更直观的手动输入体验，可以用shinyWidgets包的noUiSliderInput，这个组件原生支持手动输入，样式也更灵活。

首先安装依赖包：

install.packages("shinyWidgets")

示例代码：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  noUiSliderInput(
    inputId = "range",
    label = "Your range",
    min = 0,
    max = 1000,
    value = c(400, 500),
    step = 1,
    # 启用点击输入功能
    behaviour = "tap",
    # 显示刻度，提升易用性
    pips = list(
      mode = "values",
      values = c(0, 500, 1000),
      density = 4
    ),
    # 定义数值输入/输出的格式
    format = list(
      to = function(x) sprintf("%.0f", x),
      from = function(x) as.numeric(x)
    )
  ),
  verbatimTextOutput("current_range")
)

server <- function(input, output) {
  output$current_range <- renderPrint({
    input$range
  })
}

shinyApp(ui, server)

这个组件的数值区域可以直接点击输入，输入后自动同步滑块位置，还能自定义刻度、步长和显示格式，适配更多场景。

内容的提问来源于stack exchange，提问作者Quinten