如何在从Shiny中将datatable导出到csv时使用反应式数据集？

install.packages("shiny")
install.packages("DT")

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("导出datatable为CSV"),
  sidebarLayout(
    sidebarPanel(
      actionButton("exportBtn", "导出为CSV")
    ),
    mainPanel(
      DT::dataTableOutput("myTable")
    )
  )
)

server <- function(input, output) {
  # 创建反应式数据集
  myData <- reactive({
    # 生成数据集
    # ...
    # 返回数据集
    datatable(data)
  })
  
  # 渲染datatable
  output$myTable <- DT::renderDataTable({
    myData()
  })
  
  # 导出为CSV
  observeEvent(input$exportBtn, {
    # 获取datatable数据
    data <- myData()$x$data
    
    # 将数据导出为CSV文件
    write.csv(data, "myData.csv", row.names = FALSE)
  })
}

# 运行Shiny应用
shinyApp(ui, server)