如何为 API 调用编写适当的 for 循环？

Question

我正在尝试编写一个 for 循环，将作者的短 ID 提供给名为 RePEc 的数据库并获取从属关系数据。到目前为止，这就是我所拥有的（注意：USERCODE 仅适用于我的 IP）：

url <- "https://api.repec.org/call.cgi?code=USERCODE&getauthorrecordraw="
for(i in 1:length(df_affiliations)){
Sys.sleep(1)
affiliation_fun <- paste(url,df_affiliations$author_reg_1[i])
affiliation_run <- fromJSON(txt=affiliation_fun) %>% select("affiliation") %>% unlist(use.names=FALSE)
affiliation_1 <- paste(unlist(affiliation_run), collapse =" ")
df_affiliations$vector <- rbind(affiliation_1)
}

每次我尝试这个时，我要么只得到最后一个值，要么得到一个 HTTP 错误 400。for 循环不是我的强项。谁能弄清楚我哪里出错了？提前感谢您的帮助！

Answer 1

您的循环在每次迭代时都会覆盖您的输出变量。这里的解决方案是在循环之外初始化一个空向量，然后将值分配给每个索引：

url <- "https://api.repec.org/call.cgi?code=USERCODE&getauthorrecordraw="

#define empty vector
affiliation_1<-vector(length=length(df_affiliations))
for(i in 1:length(df_affiliations)){
  Sys.sleep(1)
  affiliation_fun <- paste0(url,df_affiliations$author_reg_1[i])
  affiliation_run <- fromJSON(affiliation_fun) %>% select(affiliation) %>% unlist(use.names=FALSE)
  affiliation_1[i] <- paste(unlist(affiliation_run), collapse =" ")
}

这是未经测试的，因为该问题不可重现，但应该为您的最终解决方案提供一个起点。