R обещания / будущее с httr и циклом - PullRequest
Новая
       81

R обещания / будущее с httr и циклом

0 голосов
/ 29 мая 2020

Я пытаюсь использовать обещания / будущее в блоке кода, который занимает слишком много времени в моем блестящем приложении. Проблема в том, что я использую пакет httr внутри al oop для получения данных, и это единственный способ получить данные из 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
          }
          })
...