绘图图表不使用r shiny中的日期滑块输入进行更新

library(shiny)
library(ggplot2)

# 定义UI
ui <- fluidPage(
  titlePanel("绘图图表更新示例"),
  
  sidebarLayout(
    sidebarPanel(
      textInput("year_input", "输入年份:", value = "2020"),
      actionButton("update_button", "更新图表")
    ),
    
    mainPanel(
      plotOutput("line_plot")
    )
  )
)

# 定义Server逻辑
server <- function(input, output) {
  
  # 创建一个反应式表达式来存储数据
  data_reactive <- reactive({
    year <- as.numeric(input$year_input)
    # 这里可以添加根据年份获取数据的逻辑
    # 例如：data <- get_data_for_year(year)
    data <- mtcars  # 示例数据集
    data$year <- year  # 添加一个年份列用于绘图
    return(data)
  })
  
  # 创建图表
  output$line_plot <- renderPlot({
    input$update_button  # 触发器：点击按钮时更新图表
    
    data <- data_reactive()
    
    ggplot(data, aes(x = wt, y = mpg)) +
      geom_line() +
      labs(title = paste("年份:", data$year))
  })
}

# 运行应用程序
shinyApp(ui = ui, server = server)