Использование объекта обещания в обработчике загрузки в лучшем R - PullRequest
Новая
       27

Использование объекта обещания в обработчике загрузки в лучшем R

1 голос
/ 29 мая 2019

Я пытался использовать библиотеку Futures в своем Shiny-коде, чтобы сделать конкретную задачу асинхронной, что занимает много времени.Обработчик обещаний этого объекта Future хорошо работает в реактивном, eventReactive и наблюдаемом событии.Но когда дело доходит до загрузки обработчика, он не работает и выдает ошибку.

Код выглядит следующим образом.Я помещаю задачу, которая занимает много времени в будущем. 

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?

...