输入滑块中的用户定义刻度标签闪亮

Question

sliderInput("myslider", "Slider:", min=1, max=100, value=6)

返回一个在 1、11、21、31、...、91 和 100 处带有刻度标签的滑块。

我会喜欢确定这些刻度标签以返回更合理的值 1、10、20、30、...90、100 的启发式方法。

我想这会经常出现，因为从 1 到 100 的滑块很常见。 （如果您设置 min=0，它会显示所需的刻度标签，但在许多应用中，您不希望输入为 0。

目前，没有办法向sliderInput 提供用户定义的刻度线标签。是否有仅针对标签的解决方法？

here 发布了一个类似的问题，但它讨论的是创建用户定义的刻度线，而不是标签。

Answer 1

在https://groups.google.com/forum/#!topic/shiny-discuss/AeAzR4p2h1g是这个问题的解决方案：

ui <- pageWithSidebar(
  headerPanel("Slider labels"),
  sidebarPanel(
    uiOutput("slider")
  ),
  mainPanel()
)

server <- function(input, output) {
  output$slider <- renderUI({

      args       <- list(inputId="foo", label="slider :", ticks=c(90,95,99,99.9), value=c(2,3))

      args$min   <- 1
      args$max   <- length(args$ticks)

      if (sessionInfo()$otherPkgs$shiny$Version>="0.11") {
        # this part works with shiny 1.5.0
        ticks <- paste0(args$ticks, collapse=',')
        args$ticks <- T
        html  <- do.call('sliderInput', args)

        html$children[[2]]$attribs[['data-values']] <- ticks;

      } else {
        html  <- do.call('sliderInput', args)    
      }

      html
    })

}

runApp(list(ui = ui, server = server))