R Shiny 使滑块值动态化

使用R Shiny可以轻松地创建交互式应用程序，其中包括滑块等控件，可以在用户界面上进行调整。但是，默认情况下，滑块的值是静态的，无法根据其他输入或事件的发生而动态变化。本文将介绍如何使用R Shiny使滑块的值动态化，实现更灵活的交互体验。

R
library(shiny)
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      numericInput("input_number", "输入一个数字", value = 10),
      actionButton("update_button", "更新滑块值")
    ),
    mainPanel(
      sliderInput("slider", "滑块", min = 0, max = 100, value = 50)
    )
  )
)
server <- function(input, output, session) {
  
  observeEvent(input$update_button, {
    updateSliderInput(session, "slider", value = input$input_number)
  })
  
}
shinyApp(ui, server)