Shiny 将滑块放入子范围

我有一个

sliderInput（）

范围从0到100，希望将其限制为只允许0到10的值。有没有办法做到这一点

注意：这似乎是一个愚蠢的请求（只需设置max=10以缩短刻度），但我有充分的理由希望保持满刻度

---

您可以通过以下链接执行某些操作：

rm(list = ls())
library(shiny)

ui <-basicPage(
  sliderInput("slider1", "Slider 1: ", min = 0, max = 100, value = 0, step=1)
)

server <- function(input, output,session) {

  observeEvent(input$slider1,{
    if(input$slider1 > 10){
      updateSliderInput(session, "slider1", min = 0,max=100, value = 10)
    }
  })
}
runApp(list(ui = ui, server = server))

rm（list=ls（））
图书馆（闪亮）
用户界面