仅对特定rhandsontable列更改做出反应

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

data <- data.frame(
  Name = c("John", "Jane", "Tom"),
  Age = c(25, 30, 35),
  Gender = c("Male", "Female", "Male")
)

hot <- rhandsontable(data, rowHeaders = NULL, colHeaders = c("Name", "Age", "Gender"))

hot

observeEvent(hot, {
  changes <- hot$getChanges()
  if (!is.null(changes)) {
    for (change in changes) {
      if (change$col == "Age") {
        cat("Age column has been changed.\n")
        cat("Old value: ", change$oldValue, "\n")
        cat("New value: ", change$value, "\n")
      }
    }
  }
})