Shiny -创建一个表格，其单元格可以通过单击来开关

library(shiny)

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

server <- function(input, output) {
  output$table <- renderDataTable({
    data <- data.frame(
      Name = c("Alice", "Bob", "Charlie"),
      Status = c("On", "Off", "On")
    )
    
    # 添加一个开关按钮
    data$Status <- ifelse(data$Status == "On", actionButton("switch", "Off"), actionButton("switch", "On"))
    
    # 将数据表返回给UI
    data
  })
}

shinyApp(ui, server)