如何在shiny app中动态更新数据表？[r]

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("动态更新数据表示例"),
  sidebarLayout(
    sidebarPanel(
      actionButton("updateBtn", "更新数据表")
    ),
    mainPanel(
      dataTableOutput("table")
    )
  )
)

server <- function(input, output) {
  # 创建一个响应式数据对象
  data <- reactive({
    # 模拟数据更新的过程，这里可以是从外部数据源获取数据等操作
    req(input$updateBtn)
    updated_data <- data.frame(
      Name = c("John", "Jane", "Mike"),
      Age = c(25, 30, 35)
    )
    updated_data
  })
  
  # 响应按钮点击事件，更新数据
  observeEvent(input$updateBtn, {
    data()
  })
  
  # 在界面中呈现数据表
  output$table <- renderDataTable({
    data()
  })
}

shinyApp(ui, server)