1

我在将多个页面与RJSONIO.

基本版本：如果我尝试使用一页，它可以工作：

test11<-RJSONIO::fromJSON("http://zoeken.kvk.nl/Address.ashx?site=handelsregister&q=01000040")
df<-ldply(test11, data.frame)

但是，当我尝试自动化多个页面的过程时，列表保持为空。我使用了以下代码：

baseurl <- "http://zoeken.kvk.nl/Address.ashx?site=handelsregister"
pages <- list()
for(i in 01000039:01000066){
  mydata <- RJSONIO::fromJSON(paste0(baseurl, "&q=", i))
  message("Retrieving page ", i)
  pages[[i+1]] <- mydata$resultatenHR
}

#combine all into one
filings <- rbind_pages(pages)

#check output
nrow(filings)

什么也没有发生，'pages' 列表是空的，mydata 也是空的。我尝试使用另一个 json 包，但使用其他包（jsonlite 和 rjason）我收到一条错误消息：

“open.connection（con，“rb”）中的错误：达到超时：连接在 10000 毫秒后超时”

提前感谢您的任何回复

4

0 回答 0