如何在R shiny中更新用户数据？

library(shiny)

# 定义UI
ui <- fluidPage(
  textInput("name", "请输入姓名："),
  actionButton("update", "更新数据"),
  verbatimTextOutput("output")
)

# 定义服务器端逻辑
server <- function(input, output) {
  
  # 定义一个响应式函数来获取用户输入的数据
  user_data <- reactive({
    data.frame(name = input$name)
  })
  
  # 定义一个触发事件来更新数据
  observeEvent(input$update, {
    # 更新数据的逻辑处理，这里假设将数据存储到一个数据框中
    updated_data <- rbind(existing_data(), user_data())
    # 更新数据框（假设为existing_data）中的数据
    # 更新后的数据可以存储到数据库或者其他数据源中
    existing_data <<- updated_data
  })
  
  # 定义一个函数来获取已有的数据
  existing_data <- function() {
    data.frame(name = c("John", "Jane", "Tom"))
  }
  
  # 将更新后的数据展示给用户
  output$output <- renderPrint({
    existing_data()
  })
}

# 运行应用
shinyApp(ui, server)