当 min 等于 max 时，如何使滑块输入 R UI 向任一方向拖动

如何解决当 min 等于 max 时，如何使滑块输入 R UI 向任一方向拖动

使用 R 闪亮，我的 UI 中有一个滑块输入，带有最小值和最大值的句柄。这些按预期工作......主要是。如果您单击最小句柄并将其拖动到与最大句柄相同的值，则该值上会出现一个单独的句柄——例如如果最大值为 5 并且您将最小值手柄拖动到 5，那么现在您在 5 处有一个表示最小值和最大值的手柄。

到目前为止一切正常，但是现在，如果您单击 5 处的手柄并尝试将其向右拖动，UI 将不允许您这样做。解决此问题的唯一方法是再次向下拖动 min（例如，4，也许），然后返回剩余的手柄并再次向右拖动。

这是预期的行为吗？有什么方法可以让 UI 根据我移动的方向（当手柄彼此重叠时）知道我想要移动哪个手柄？

下面的代码显示了我提到的滑块输入行为。

library(shiny)

ui <-
  fluidPage(fluidRow(column(
    12,sliderInput(
      inputId = "foo_bar",label = "Select Range",min = 0,max = 10,value = c(0,10),step = 1,round = T,ticks = T,width = "100%",dragRange = T
    )
  )))

shinyApp(ui = ui,server = function(input,output) {})