指定闪亮的sliderInput刻度值，与可选输入值无关

Question

在Shiny中，我要有一个sliderInput，其中可选输入值为0、1、2，...，120，滑块上显示的刻度值为0、10、20，...，120（而不是默认的刻度值0、12、24，...，120）。我不太担心小滴答声。

有没有一种方法可以在将滑块步长保持为1的同时指定刻度值？

示例代码：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("xrange",
                  label = "Range of x",
                  min = 0, max = 120, step = 1, value = c(0, 120))
    ),
    mainPanel(plotOutput("histogram"))
  )
)

server <- function(input, output) {
  output$histogram <- renderPlot({
    x <- runif(100, input$xrange[1], input$xrange[2])
    hist(x)
  })
}

shinyApp(ui, server)