向R shiny中的嵌套数据表添加额外的按钮

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("嵌套数据表示例"),
  sidebarLayout(
    sidebarPanel(
      # 添加按钮来更新数据表
      actionButton("updateBtn", "更新数据表")
    ),
    mainPanel(
      # 显示嵌套数据表
      DT::dataTableOutput("nestedTable")
    )
  )
)

server <- function(input, output) {
  # 生成示例数据
  data <- data.frame(
    Name = c("John", "Jane", "Mike"),
    Age = c(25, 30, 35),
    Details = list(
      list(
        Address = "123 Street",
        Email = "john@example.com"
      ),
      list(
        Address = "456 Avenue",
        Email = "jane@example.com"
      ),
      list(
        Address = "789 Road",
        Email = "mike@example.com"
      )
    )
  )
  
  # 创建嵌套数据表
  output$nestedTable <- DT::renderDataTable({
    datatable(
      data,
      # 设置列的定义
      options = list(
        columnDefs = list(
          list(
            targets = "_all",
            className = "dt-center"
          )
        )
      ),
      # 添加更新按钮列
      callback = JS(
        "init: function(api, table) {",
        "  $(document).on('click', '#updateBtn', function() {",
        "    table.ajax.reload();",
        "  });",
        "}"
      )
    )
  })
}

shinyApp(ui, server)