将JSON页面与RJSONIO相结合

Question

我在将多个页面与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毫秒后超时“

预先感谢您的回复