rbind.pages with missing pages "Error: all(vapply(pages, is.data.frame, logical(1)))" is not TRUE

Question

我正在尝试 rbind.pages 使用来自 Web 的 jsonlite，其中缺少一些数据文件（例如缺少 aa 的值）。

temp<- c("6702","1","67")
library(jsonlite)
baseurl <- "https://api.angel.co/1/startups/"
pages <- list()
for(i in 1:3){
  mydata<- fromJSON(paste0(baseurl,temp[[i]]),flatten= TRUE)
 pages[[i+1]] <- mydata
}
out<- rbind.pages(pages[sapply(pages, length)>2])

我收到以下错误。关于如何解决这个问题的任何建议？谢谢

Error: Error in open.connection(con, "rb") : HTTP error 404.
Error: all(vapply(pages, is.data.frame, logical(1))) is not TRUE

Answer 1

rbind.pages 似乎不喜欢 "empty" 列表。您应该过滤您的列表以排除它们

out<- rbind.pages(pages[sapply(pages, length)>0])

rbind.pages with missing pages "Error: all(vapply(pages, is.data.frame, logical(1)))" is not TRUE

rbind.pages with missing pages "Error: all(vapply(pages, is.data.frame, logical(1)))" is not TRUE

json

r

rjsonio

jsonlite