在闪亮R中的下载处理程序中使用Promise对象

Question

我一直在尝试在我的Shiny代码中使用Futures库，以使特定任务异步进行，这很花时间。此Future对象的Promise处理程序可在反应式，eventReactive和observeEvent中正常工作。但是当涉及到下载处理程序时，它无法正常工作并给我一个错误。

代码如下。我把时间花在了未来上。

futureData <- eventReactive(input$generateButton, {


      p <- Progress$new(session, min = 0, max = 100)
      p$set(value = 20, message = "Fetching data",detail = "This might take a while...")

      pwd <- getwd()
      future({
           setwd(pwd)
           generateReport()
           }) %>% finally({~p$set(value=100);~p$close()}) %...!% 
           (function(error) {
                print(paste("Unexpected error: ",error,error$message))
        }) 
 })



pptData <- eventReactive(futureData(), {

       futureData() %...>% {

             futureData <- .

             # Build Report Naming Convention
             pptId <- paste(futureData$pptTitle, gsub(":", "-", Sys.time()),sep = "_")
             pptFlName <- paste(pptId, ".pptx", sep = "")
             pptFile <- paste("Reports/", pptFlName, sep = "")


             return(list(
                "pptId"= pptId,
                "pptFlName"= pptFlName,
                "pptFile"= pptFile
             ))

         }
})


# Download handler on a button click
output$downloadwb <- downloadHandler(
    filename = pptData() %...>% `[[`("wbFlName"),
    content = function(file) {
    file.copy(pptData() %...>% `[[`("wbFile"), file) 
})

我收到以下错误：

  

警告：enc2utf8错误：参数不是字符向量     [没有可用的堆栈跟踪]

您能帮我这个吗？有人尝试过在Shiny的下载处理程序中使用Promise对象吗？