在R中如何移动表格和相关输入，使用rhandsontable生成，进入模式对话框？

install.packages("rhandsontable")

library(rhandsontable)

data <- data.frame(
  Name = c("Alice", "Bob", "Charlie", "Dave"),
  Age = c(25, 30, 35, 40),
  Gender = c("Female", "Male", "Male", "Male")
)

rhandsontable(data)

shinymode({
  data <- data.frame(
    Name = c("Alice", "Bob", "Charlie", "Dave"),
    Age = c(25, 30, 35, 40),
    Gender = c("Female", "Male", "Male", "Male")
  )
  
  rhandsontable(data)
})