在R Shiny中，如何使用actionButton重置rhandsontable中的数据(反转所有手动输入)？

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  fluidRow(
    column(6, rhandsontableOutput("table")),
    column(6, actionButton("reset", "重置"))
  )
)

server <- function(input, output, session) {
  data <- reactiveValues(table_data = NULL)
  
  observe({
    if (!is.null(input$table)) {
      data$table_data <- hot_to_r(input$table)
    }
  })
  
  observeEvent(input$reset, {
    if (!is.null(data$table_data)) {
      data$table_data <- NULL
      updateHotInServer(session, "table", data$table_data)
    }
  })
  
  output$table <- renderRHandsontable({
    rhandsontable(data$table_data)
  })
}

shinyApp(ui, server)