当我在Shiny中选择表格中的一行时，如何更改单张中的圆形标记颜色？

library(shiny)
library(DT)

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

server <- function(input, output) {
  # 创建示例表格
  data <- data.frame(
    ID = 1:5,
    Name = c("John", "Jane", "Mike", "Sarah", "Tom"),
    Color = c("red", "blue", "green", "yellow", "orange")
  )
  
  output$table <- renderDataTable({
    datatable(data, selection = "single")
  })
  
  observeEvent(input$table_rows_selected, {
    # 获取用户选择的行索引
    selected_row <- input$table_rows_selected
    
    # 更改选定行的圆形标记颜色为红色
    data$Color[selected_row] <- "red"
    
    # 更新表格以反映颜色更改
    output$table <- renderDataTable({
      datatable(data, selection = "single")
    })
  })
}

shinyApp(ui, server)