闪亮- renderDataTable中的checkboxInput不起作用

library(shiny)

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

server <- function(input, output) {
  data <- data.frame(
    id = c(1, 2, 3),
    name = c("John", "Jane", "Mike")
  )
  
  output$table <- renderDataTable({
    datatable(data, 
              options = list(
                columnDefs = list(list(className = 'dt-center', targets = "_all")),
                pageLength = 10,
                lengthMenu = c(10, 20, 50),
                dom = 'Bfrtip',
                buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                select = 'multi'
              ),
              callback = JS(
                "table.on('click', 'tr', function() {",
                "  var checkbox = $(this).find('input[type=\"checkbox\"]');",
                "  checkbox.prop('checked', !checkbox.prop('checked'));",
                "});"
              )
    )
  })
  
  observeEvent(input$table_rows_selected, {
    selected_rows <- input$table_rows_selected
    if (!is.null(selected_rows)) {
      selected_data <- data[selected_rows, ]
      # 执行相应的操作，例如打印选中的行数据
      print(selected_data)
    }
  })
}

shinyApp(ui, server)