如何在Shiny中使用future_promise异步写入数据库

library(DBI)
library(RSQLite)
library(promises)
library(future)

con <- dbConnect(RSQLite::SQLite(), "database.db")

write_to_database <- function(data) {
  future({
    # 执行数据库写入操作
    dbWriteTable(con, "table_name", data, overwrite = TRUE)
  })
}

server <- function(input, output, session) {
  observeEvent(input$submit_button, {
    # 获取需要写入数据库的数据
    data <- input$data
    
    # 使用future_promise调用异步函数
    promise <- future_promise(write_to_database(data))
    
    # 处理异步操作的结果
    then(promise, onFulfilled = function() {
      # 异步写入数据库成功后的操作
      # 可以在这里更新UI或执行其他操作
    }, onRejected = function(error) {
      # 异步写入数据库失败后的操作
      # 可以在这里处理错误或执行其他操作
    })
  })
}

shinyApp(ui, server)