使用R中的httr包獲取更多對象

Question

我使用httr包從Data API獲取數據：

request3 <- GET(url = "https://api.data-api.io/xxxxx/", add_headers('x-dataapi-key' = "xxxxx"), query = list(oib = "18527887472"))

如何在一行代碼中獲取更多對象？ 可以說我有一個向量：

oibreq <- c("18527887472", "92680516748", "00045103869")

我想為這3個“查詢”獲取對象。 很長的路要調用GET函數3次：

 request1 <- GET(url = "https://api.data-api.io/xxxx", add_headers('x-dataapi-key' = "xxxx"), query = list(oib = "18527887472"))
request2 <- GET(url = "https://api.data-api.io/v1/eoglasna/", add_headers('x-dataapi-key' = "xxxx"), query = list(oib = "00045103869"))
request2 <- GET(url = "https://api.data-api.io/v1/eoglasna/", add_headers('x-dataapi-key' = "xxxx"), query = list(oib = "92680516748"))

有沒有更快的方法可以做到這一點？ 如果我有100個oibreq元素，那就有問題了。

Answer 1

您可以編寫自己的函數，然后通過lapply()將對象ID的向量傳遞給該函數：

my_get <- function(object) {
  GET(url = "https://api.data-api.io/v1/eoglasna/", 
      add_headers('x-dataapi-key' = "xxxx"), 
      query = list(oib = object))
}
lapply(oibreq, my_get)

Answer 2

我找到了我的問題的答案：

req <- list()
my_get <- for (i in 1:length(oibreq)) {
  reqOP <- rbind(fromJSON(toJSON(content(GET(url = "https://api.data-api.io/v1/eoglasna/", 
                              add_headers('x-dataapi-key' = "xxx"), 
                              query = list(oib = oibreq[i])), type = "application/json"), null = "null"), flatten = TRUE))
  req[[i]] <- reqOP
}
big_data <- do.call(rbind, req)