R - 循环 API 调用

Question

我正在使用 R 成功地进行 API 调用。对于每个单独的呼叫，我需要更改一个或两个可区分的 ID（在 activity_id 和/或 name_id 下面的代码的情况下）。该代码运行良好，但是我现在处于一个我喜欢自动化此过程的位置，而不是手动更改每个呼叫的 ID。我想知道是否有一种方法可以使用数据框或列表来循环它来存储相关的 ID。

我已经在 Stack 中进行了搜索，但尚未找到或执行合适的解决方案。

任何帮助将不胜感激。

谢谢，

JPC

apiKey <-"eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI"
example<- GET("url?activity_id=b5cb9359-f0e5-4939-9be3-fc95f8bc7d6b&name_id=f1e17fa6-c40c-4810-9c43-60939e2a9a99",add_headers(Authorization = paste("Bearer", apiKey)))
example <-content(example,"text")
example <-fromJSON(example,flatten = TRUE)
example <-unnest(example,data)
write.csv(example,"example.csv",row.names=F)

Answer 1

我们可以编写一个函数，根据传递的activity_id 和name_id 使用sprintf 动态生成url。

get_data <- function(activity_id, name_id) {

   url <- sprintf('url?activity_id=%s&name_id=%s', activity_id, name_id)
   example<- httr::GET(url,add_headers(Authorization = paste("Bearer", apiKey)))
   example <- httr::content(example,"text")
   example <- jsonlite::fromJSON(example,flatten = TRUE)
   example <- tidyr::unnest(example,data)
   return(example)
}

然后使用Map 调用它。

out <- Map(get_data, activity_vec, name_vec)

这里activity_vec和name_vec是各自id的向量。这将返回out 中的数据帧列表，如果需要，可以在写入 csv 之前将其组合成一个数据帧。

---

如果只有name_id 发生变化，我们可以做到

get_data <- function(name_id) {
    url <- sprintf('url?activity_id=b5cb9359-f0e5-4939-9be3-fc95f8bc7d6&name_id=%s', name_id)
    example<- httr::GET(url,add_headers(Authorization = paste("Bearer", apiKey)))
    example <- httr::content(example,"text")
    example <- jsonlite::fromJSON(example,flatten = TRUE)
    example <- tidyr::unnest(example,data)
    return(example)
  }

out <- lapply(name_vec, get_data)