如何启用禁用基于R shiny中行中的字符串的操作按钮？

library(shiny)
library(DT)

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

server <- function(input, output, session) {
  # 定义数据集
  data <- data.frame(
    Name = c("John", "Jane", "Mike"),
    Action = c("Enable", "Disable", "Enable")
  )
  
  # 呈现表格
  output$table <- renderDataTable({
    datatable(data)
  })
  
  # 监听表格行的选择
  observeEvent(input$table_rows_selected, {
    # 获取所选行的数据
    selected_row <- data[input$table_rows_selected, ]
    
    # 获取所选行的字符串值
    selected_action <- selected_row$Action
    
    # 根据字符串值启用/禁用按钮
    if (selected_action == "Enable") {
      updateButtonState(session, "button", enabled = TRUE)
    } else {
      updateButtonState(session, "button", enabled = FALSE)
    }
  })
}

shinyApp(ui, server)