HTTR 获取 next_offset

Question

在这上面旋转我的轮子API 获取回复。我可以获得前 20 个观察结果，但无法弄清楚如何遍历“Next_Offset”，即 20.

GET 响应的内容returns 2 个列表：

下一个偏移量
共 20 个列表

我正在尝试对每 20 个进行分页，直到没有剩余数据，并且在每次迭代期间将数据绑定到最终列表中。

authHeader <- add_headers(Authorization = paste("Bearer",apiKey))

resp <- GET(
  paste0(connectServer, apiPrefix),
  authHeader)

payload <- content(resp)

### Create empty list to bind during pagination
payload_list <- list()


while(length(payload$next_offset) > 0) {
  
  newdata <- payload$records
  
  cbind(payload_list,newdata )
  
  nextPage <- payload$records + 1
  
  resp <- GET(
    paste0(connectServer, apiPrefix, "&page_number=", nextPage),
    authHeader
  )
  payload <- content(resp)
}

非常感谢任何帮助

Answer 1

我使用

解决了这个问题

while(length(payload$next_offset) > 0) {
  
  newdata <- payload$records
  
  cbind(payload_list,newdata )
  
  nextPage <- payload$new_offset
  
  resp <- GET(
    paste0(connectServer, apiPrefix, "?offset=", nextPage),
    authHeader
  )
  payload <- content(resp)
}

HTTR 获取 next_offset

HTTR GET next_offset

r

httr

jsonlite