将更新后的handsontable保存在r shiny中，保存在其他变量中

install.packages("shiny")
install.packages("rhandsontable")

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  titlePanel("保存Handsontable示例"),
  sidebarLayout(
    sidebarPanel(
      actionButton("saveBtn", "保存表格")
    ),
    mainPanel(
      rHandsontableOutput("table")
    )
  )
)

server <- function(input, output) {
  data <- data.frame(
    Name = c("John", "Jane", "Tom"),
    Age = c(25, 30, 35),
    stringsAsFactors = FALSE
  )
  
  output$table <- renderRHandsontable({
    rhandsontable(data)
  })
  
  observeEvent(input$saveBtn, {
    updatedData <- hot_to_r(input$table)
    # 保存更新后的数据到其他变量中
    # ...
  })
}

shinyApp(ui, server)