r - `range` 和 `pips` 参数如何在shinyWidgets `noUiSliderInput()` 中工作？

Question

range 和 pip` 的 shinyWidgets::noUiSliderInput() 参数的文档只是简单地说明它们是一个列表，但没有提供任何示例列表的结构或内容。

我已经查看了关于 noUiSlider 的refreshless.com 文档，以使用 range ( https://refreshless.com/nouislider/examples/#section-non-linear ) 制作非线性 slider ，但是匹配该结构会产生空白 ui 并且不会导致任何错误。

这是我在 R Shiny 中尝试的内容。请注意，如果范围参数被注释掉，它确实会在 UI 中生成一个 slider :

library(shiny)
library(shinyWidgets)

if(interactive()) {
    ui <- fluidPage(
    
    tags$br(),
    
    noUiSliderInput(
      inputId = "noui2", 
      label = "Slider vertical:",
      min = 20, 
      max = 400000,
      #step = 50,
      value = c(100),
      orientation = "vertical",
      range = list("min" = 0,
                   "x20" = c(20, 5),
                   "x100" = c(100, 20),
                   "x250" = c(250, 50),
                   "x500" = c(500, 100),
                   "x5000" = c(5000, 1000),
                   "x20000" = c(20000, 20000),
                   "max" = 400000),
      width = "100px", height = "300px"
    ),
    verbatimTextOutput(outputId = "res2")
    
  )
    
  server <- function(input, output, session) {
    
    output$res2 <- renderPrint(input$noui2)
    
  }
  
  shinyApp(ui, server)

}

Answer 1

range 选项的键必须以 % 形式给出，例如

      range = list("min" = list(0),
                   "20%" = list(20, 5),
                   "80%" = list(100, 50),
                   "max" = list(400))

什么是x20、x100等？您想要自定义刻度标签吗？你可以这样做:

      pips = list(
        mode = "values",
        values = list(0, 200, 400),
        density = 4
      )