IBNIB6Z3SWOMJPZBXDCDTVSIHT2XXCPNOQIZVHOGXB2CAOHCTQJQC result <- gql_conn$exec(rq$link) %>%fromJSON(flatten = F)words <- result$data$words %>% as_tibble()
end <- FALSEwords <- NULLlimit <- 10000offset <- 0while (!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 + limitend <- nrow(w) == 0}