如何禁用R Shiny中numericInput的滚动调节功能？

要解决numericInput选中时滚动鼠标改变值的问题，核心是禁用输入框的鼠标滚轮事件，以下是两种可靠的实现方式：

方法一：直接在UI中嵌入JavaScript #

通过自定义脚本拦截所有（或指定）numericInput的滚轮事件，阻止默认的数值增减行为：

ui <- fluidPage(
  # 嵌入自定义JS代码
  tags$script(HTML("
    // 禁用所有numericInput的滚轮调节
    $(document).on('wheel', 'input[type=\"number\"]', function(e) {
      e.preventDefault(); // 阻止默认滚轮行为
    });
  ")),
  # 示例numericInput
  numericInput("num_input", "调整数值", value = 50, min = 0, max = 100)
)

server <- function(input, output) {
  # 这里添加你的应用逻辑
}

shinyApp(ui, server)

如果只想针对特定ID的numericInput生效，修改JS选择器即可：

// 仅禁用id为num_input的输入框滚轮功能
$(document).on('wheel', '#num_input', function(e) {
  e.preventDefault();
});

方法二：结合shinyjs执行脚本 #

如果你更习惯用shinyjs工具，确保正确调用runjs执行拦截逻辑：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(), # 初始化shinyjs
  numericInput("num_input", "调整数值", value = 50, min = 0, max = 100)
)

server <- function(input, output) {
  runjs("
    $(document).on('wheel', '#num_input', function(e) {
      e.preventDefault();
    });
  ")
}

shinyApp(ui, server)

这两种方法都不会影响输入框的其他正常功能（手动输入数值、点击上下箭头调整依然可用），只是屏蔽了滚轮触发的数值变化。

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