如何使rhandsontable对数据上传和用户编辑都做出反应？

install.packages("rhandsontable")
library(rhandsontable)

data <- data.frame(
  Name = c("John", "Jane", "Mike"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

hot <- rhandsontable(data)

hot

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  titlePanel("rhandsontable示例"),
  sidebarLayout(
    sidebarPanel(
      actionButton("saveBtn", "保存数据")
    ),
    mainPanel(
      rHandsontableOutput("table")
    )
  )
)

server <- function(input, output, session) {
  # 创建初始数据框
  data <- data.frame(
    Name = c("John", "Jane", "Mike"),
    Age = c(25, 30, 35),
    Salary = c(50000, 60000, 70000)
  )
  
  # 创建rhandsontable表格
  output$table <- renderRHandsontable({
    rhandsontable(data)
  })
  
  # 保存按钮的触发事件
  observeEvent(input$saveBtn, {
    # 获取编辑后的数据
    updatedData <- hot_to_r(input$table)
    
    # 执行保存操作，例如将数据保存到数据库
    # ...
    
    # 更新数据框
    data <<- updatedData
  })
}

shinyApp(ui, server)