如何强制数据帧中的反应在R中闪亮

library(shiny)

ui <- fluidPage(
  dataTableOutput("myTable")
)

server <- function(input, output) {
  # 生成一个示例数据帧
  data <- data.frame(
    Name = c("Alice", "Bob", "Charlie"),
    Age = c(25, 30, 35),
    Reaction = c("Normal", "Normal", "Normal")
  )
  
  # 定义一个函数，用于修改数据帧中某行的Reaction值为"Flash"
  flashRow <- function(rowNum) {
    data$Reaction[rowNum] <- "Flash"
  }
  
  # 生成可视化的数据表格
  output$myTable <- renderDataTable({
    datatable(data)
  })
  
  # 监听数据表格的点击事件，当点击某行时，调用flashRow函数修改对应行的Reaction值
  observeEvent(input$myTable_cell_clicked, {
    info <- input$myTable_cell_clicked
    row <- info$row
    flashRow(row + 1)
  })
}

shinyApp(ui, server)