R带有httr和循环的R承诺/未来

Question

我正在尝试在我的闪亮应用程序中花费太长时间的代码块中使用promise / future。问题是我在循环内使用httr包检索数据，这是我可以从api获取数据的唯一方法。问题是我知道我不能在将来使用响应/输入值，但是当我在代码的不同部分使用将来时，什么也没发生。

这是代码，df是一个只有列的空数据框

          for (i in 1:1000){
            url<-glue("{api_domain}stats/conversions?date_from={input$date_start_conversions}&date_to={input$date_final_conversions}&offer={input$offer_id_conversions}&limit=5000&page={i}")
            api_token<-Sys.getenv('API_TOKEN')
            r = GET(url,add_headers("API-KEY"=api_token))
            raw_response <- content(r, as="text") 
            json <- fromJSON(raw_response)
            df_query<-as.data.frame(json$conversions) 
            df <- rbind(df, df_query) 
            if (nrow(df_query)==0) break 
            df
          }
          })

Answer 1

像在应用程序上线之前执行httr并将其更快地存储在某处