将sliderInput限制为子范围

Question

我的sliderInput()范围从 0到100 ，并且希望将其限制为仅允许0到10之间的值。有没有办法实现这一目标？

注意：这可能看起来像是一个愚蠢的请求（只是设置max = 10以缩短比例）但是它有充分的理由我想保持满刻度。

Answer 1

您可以执行以下操作：

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))