如何在for循环中跳过NA值

Question

我正在应用 for 循环从 RePEc 数据库生成多个 API 请求。不幸的是，数据不可重现，因为管理员给我的访问代码仅适用于我的 IP 地址，但我希望有人能帮助我找出我在 for 循环中做错了什么（我不擅长写作for 循环）。

基本上，我有一列包含 80,000 个单元格df$author_reg_2，其中包含大量 NA 值。我想跳过 NA 值，只为具有实际值的单元格生成 API 请求。

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

affiliation_2 <-vector(length=length(df$author_reg_2))
for(i in 1:length(df$author_reg_2))
    try({
        Sys.sleep(1)
        if(is.na(df$author_reg_2)) next
        affiliation_fun <- paste0(url,df$author_reg_2[i])
        affiliation_run <- fromJSON(txt=affiliation_fun) %>% select("affiliation")
        affiliation_2[i] <- paste(unlist(affiliation_run), collapse =" ")
        print(i)
    })

每次我尝试运行此脚本时，它仍然会生成错误，告诉我它正在运行 NA 值。

任何帮助表示赞赏！提前谢谢！

Answer 1

当我们遍历每个元素并传递if上的逻辑（长度为1并输出1）时，需要单个元素

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

affiliation_2 <-vector("list", length=length(df$author_reg_2))
for(i in seq_along(df$author_reg_2))
try({
    Sys.sleep(1)
    if(is.na(df$author_reg_2[i])) next
    affiliation_fun <- paste0(url,df$author_reg_2[i])
    affiliation_run <- fromJSON(txt=affiliation_fun) %>% select("affiliation")
    affiliation_2[[i]] <- paste(unlist(affiliation_run), collapse =" ")
    print(i)
})

list 也将持有不同的length 的vector，并且不需要在末尾添加paste 和collapse（如果是这样的话）

如果我们需要将 next 更改为 `affliation_2 中的 NA 值

for(i in seq_along(df$author_reg_2))
    try({
        Sys.sleep(1)
        if(is.na(df$author_reg_2[i])) {
            affiliation_2[[i]] <-  NA_character_
           }  else{
            affiliation_fun <- paste0(url,df$author_reg_2[i])
            affiliation_run <- fromJSON(txt=affiliation_fun) %>% select("affiliation")
            affiliation_2[[i]] <- paste(unlist(affiliation_run), collapse =" ")
         }
        print(i)
    })