Json 如何通过for循环附加数据

我试图通过循环递归地收集数据。我编写了这个命令，它用于从2个页面收集信息。比如说,

library(jsonlite)   
data1 <- fromJSON("https://www.example.com/?page=1", flatten = TRUE)
data2 <- fromJSON("https://www.example.com/?page=2", flatten = TRUE)
filings<- rbind.pages(list(data1, data2))

library（jsonlite）
data1要在字符串中使用循环变量，您需要使用
eval
、
parse
和
paste
这三种令人不快的组合。这里有一个简单的例子

for (i in 1:10){
    eval(parse(text=paste(
    'print ("iteration number ',i,'")'
    ,sep='')))
}

你的例子可能是

for (i in 1:300) {
eval(parse(text=paste(
'data_',i, '<- fromJSON("https://www.example.com/?page=',i,'", flatten = TRUE)'
,sep='')))
}

for（1:300中的i）{
eval（解析（文本=粘贴(
“数据”i，循环将比
apply
慢得多。请参见
lappy
，
sapply
。
paste0
只需连接两个字符串

GetJSON = function(id_)
{
    return(fromJSON(paste0("https://www.example.com/?page=", id_), flatten = TRUE))
}
lapply(1:300, GetJSON)

臭名昭著的《财富》杂志（106）
，它让人抓狂，但我如何组合页面呢？我尝试了归档
GetJSON = function(id_)
{
    return(fromJSON(paste0("https://www.example.com/?page=", id_), flatten = TRUE))
}
lapply(1:300, GetJSON)