如何在shiny中使用重新加载的数据来反应式更新数据表？

library(shiny)

# UI部分
ui <- fluidPage(
  actionButton("reloadBtn", "Reload Data"),
  dataTableOutput("dataTbl")
)

# Server部分
server <- function(input, output) {
  # 定义一个反应式对象，用于存储重新加载的数据
  reloadedData <- reactive({
    # 在这里加载新的数据，可以是从文件、数据库或者API获取
    # 返回新的数据
    # 例如：read.csv("new_data.csv")
    # 注意：这里只是一个示例，具体的数据加载过程需要根据实际情况进行修改
    data.frame(
      Name = c("John", "Jane", "Mike"),
      Age = c(25, 30, 35),
      stringsAsFactors = FALSE
    )
  })
  
  # 渲染数据表，并将反应式对象作为数据输入
  output$dataTbl <- renderDataTable({
    reloadedData()
  })
  
  # 定义一个触发重新加载数据的事件
  observeEvent(input$reloadBtn, {
    # 在这里可以执行重新加载数据的操作
    # 例如：重新加载数据到reloadedData对象中
    # 注意：这里只是一个示例，具体的重新加载数据的操作需要根据实际情况进行修改
    reloadedData()
  })
}

# 运行shiny应用程序
shinyApp(ui, server)