Аргументы подразумевают различное количество строк для цикла итерации - PullRequest
Новая
       56

Аргументы подразумевают различное количество строк для цикла итерации

0 голосов
/ 30 января 2019

проблема с кодом

Сохранение результата из цикла итерации в задачу целого кадра данных 

library(rscopus)
library(dplyr)

auth_token_header("d2f02ad55dcfc907212f0e6b216bf847")

akey="d2f02ad55dcfc907212f0e6b216bf847"
set_api_key(akey)
df = data.frame(doi = c("10.1109/TPAMI.2018.2798607", "10.1109/CNS.2017.8228696"))

df_references <- NULL
for (i in 1:nrow(df)) {
     x = abstract_retrieval(df$doi[i], identifier= "doi")

     for (a in 1:length(x$content$`abstracts-retrieval-response`$`item`$bibrecord$tail$`bibliography`$reference)){
         call_str <- paste("ref <- x$content$`abstracts-retrieval-response`$`item`$bibrecord$tail$`bibliography`$reference[[",a,"]]$`ref-info`$`ref-title`")
         eval(parse(text = call_str))
         df_references <- rbind(df_references, data.frame(initial_paper = df$doi[i],
                                                          ref_title = ref))
     }
 }

Я ожидаю, что выходные данные будут сохранять результаты каждой итерации в кадре данных

...