Укажите значения тика Shiny 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)