bq_job_wait signals errors when a jobs.get call return a 503

[meztez]

bq_job_wait signals errors when a jobs.get call return a 503

[meztez]

bq_job_meta <- function (x, fields = NULL) {
    
    x <- bigrquery::as_bq_job(x)
    
    req_call <- function () { 
      httr::GET(
        paste0(bigrquery:::base_url, bigrquery:::bq_path(x$project, jobs = x$job)),
        bigrquery::bq_token(),
        httr::user_agent(bigrquery:::bq_ua()),
        query = bigrquery:::prepare_bq_query(list(location = x$location, fields = fields))
      )
    }
    
    req <- req_call()
    
    if (httr::status_code(req) == 503) {
      Sys.sleep(2L)
      req <- req_call()
    }
    
    bigrquery:::process_request(req, raw = FALSE)
    
  }

I do not like this solution. What else...