IBNIB6Z3SWOMJPZBXDCDTVSIHT2XXCPNOQIZVHOGXB2CAOHCTQJQC
result <- gql_conn$exec(rq$link) %>%
fromJSON(flatten = F)
words <- result$data$words %>% as_tibble()
end <- FALSE
words <- NULL
limit <- 10000
offset <- 0
while (!end) {
result <- gql_conn$exec(rq$link, variables=list(limit=limit, offset=offset)) %>%
fromJSON(flatten = F)
w <- result$data$words %>% as_tibble()
words <- rbind(words, w)
offset <- offset + limit
end <- nrow(w) == 0
}