如何从reactable (和shiny)中具有变化/反应列值的数据创建列组？

library(reactable)

# 创建具有变化/反应列值的数据
data <- data.frame(
  name = c("John", "Mary", "Peter"),
  age = c(25, 30, 35),
  salary = c(50000, 60000, 70000),
  bonus = c(1000, 2000, 3000)
)

# 使用React组件创建具有变化/反应列值的数据
data$bonus <- reactable::react(
  data$bonus,
  function(value) {
    if (value > 1000) {
      return(paste0(value, " (High)"))
    } else {
      return(paste0(value, " (Low)"))
    }
  }
)

# 创建Reactable
reactable(data)

library(shiny)
library(reactable)

ui <- fluidPage(
  reactableOutput("table")
)

server <- function(input, output) {
  # 创建具有变化/反应列值的数据
  data <- reactive({
    data.frame(
      name = c("John", "Mary", "Peter"),
      age = c(25, 30, 35),
      salary = c(50000, 60000, 70000),
      bonus = c(1000, 2000, 3000)
    )
  })
  
  # 使用observe函数创建具有变化/反应列值的数据
  observe({
    data$bonus <- ifelse(data()$bonus > 1000, paste0(data()$bonus, " (High)"), paste0(data()$bonus, " (Low)"))
  })
  
  # 创建Reactable
  output$table <- renderReactable({
    reactable(data())
  })
}

shinyApp(ui, server)