如何更改依赖于numericInput的data.frame值

library(shiny)

ui <- fluidPage(
  numericInput("input_value", "输入值：", value = 0),
  actionButton("change_button", "更改值"),
  tableOutput("output_table")
)

server <- function(input, output) {
  # 创建一个初始的data.frame
  data <- data.frame(value = c(1, 2, 3, 4, 5))
  
  # 监听按钮点击事件
  observeEvent(input$change_button, {
    # 获取用户输入的值
    new_value <- input$input_value
    
    # 更改data.frame的值
    data$value <- new_value
    
    # 更新输出表格
    output$output_table <- renderTable(data)
  })
}

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