在R中调用API（httr）

Question

我希望你能帮助我。 我尝试在R（httr包）中调用API。 API的地址是： https : //apiv3.mojepanstwo.pl/dane/krs_podmioty

我尝试在R中获得与以下地址所列相同的信息：

https://apiv3.mojepanstwo.pl/dane/krs_podmioty?conditions[krs_podmioty.nip]=6321880539

如何在R中编写它？ 我尝试如下：

URL <- "https://apiv3.mojepanstwo.pl/dane/krs_podmioty?"
ndsu_req <- GET(URL, query = list(condition[krs_podmioty.nip] = 6321880539))
ndsu_data <- content(ndsu_req)
nsdu_data

但是我得到一些错误。 具体来说，我的意图是获取3个数字（nip），并为他们列出完整的信息。 有人可以帮忙吗？

Answer 1

我得到了我问题的答案。 我为一些压区编号编写了函数+ sapply。 但我遇到了另一个问题：在一种情况下，我收到错误消息：

“索引超出范围。”

我把这种情况放在下面的代码中。 这是因为API没有为该对象（DAtaObject [[1]]）返回任何值。 任何人都知道如何帮助并为此编写NULL值吗？ 或任何其他解决方案？

URL <- "https://api-v3.mojepanstwo.pl/dane/krs_podmioty?"



abc=c(
7822088970)

KAP<-function (abc){
DANE<- GET(URL, query=list("conditions[krs_podmioty.nip][]"= abc, limit = 1500 ))
DANE2<- content(DANE)
DANE3<- DANE2$Dataobject[[1]]$data$krs_podmioty.wartosc_kapital_zakladowy
DANE4<- DANE2$Dataobject[[1]]$data$krs_podmioty.nip
c(DANE3, DANE4)
}

sapply(abc,KAP)