如何将sliderInput范围内的所有观测值包含在Shiny R中

library(shiny)

# 假设我们有一组观测值
observed_values <- c(1, 3, 5, 7, 9, 11, 13, 15)

ui <- fluidPage(
  titlePanel("Slider Input Example"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("range", "Select Range:",
                  min = min(observed_values),
                  max = max(observed_values),
                  value = c(min(observed_values), max(observed_values)))
    ),
    mainPanel(
      verbatimTextOutput("selected_range")
    )
  )
)

server <- function(input, output) {
  output$selected_range <- renderPrint({
    paste("Selected range is:", input$range)
  })
}

shinyApp(ui = ui, server = server)

server <- function(input, output, session) {
  # 假设data是通过某种方式动态获取的
  data <- reactive({
    # 这里应该是获取数据的逻辑
    c(1, 3, 5, 7, 9, 11, 13, 15)
  })
  
  observeEvent(data(), {
    updateSliderInput(session, "range",
                      min = min(data()),
                      max = max(data()),
                      value = c(min(data()), max(data())))
  })
  
  output$selected_range <- renderPrint({
    paste("Selected range is:", input$range)
  })
}