将列值循环到 API 调用中的问题

Question

我正在做一个项目，我正在尝试获取一个只有一列包含单词的数据框，然后尝试构建一个循环，该循环将从 Merriam-Webster API 中提取单词的一些数据，然后放置它进入一个新的数据框。

希望最终的数据框如下所示：

name | class | pronunciation | definition
ambit  noun    am*bit          circuit, compass

到目前为止我的代码：

words_for_loop 数据帧

diurnal  
omnibus 
chatelaine 
mantic 
limitrophe 
oaf

代码：

for (i in seq_along(words_for_loop)) {

url_word_vector <- paste("https://www.dictionaryapi.com/api/v3/references/collegiate/json/", words_for_loop[[i]], "?key=numbers", sep = "")
  

data_holder <- tibble()

data_loop <- fromJSON(url_word_vector, flatten = TRUE) %>% 
  select(meta.id, fl, hwi.hw, shortdef) %>% 
  dplyr::rename(name = meta.id, class = fl, pronunciation = hwi.hw, definition = shortdef)  
   

data_holder <-
  data_holder %>%
  bind_rows(data_loop)

}

结果是一个空的小标题。我认为我在正确的轨道上，因为运行url_word_vector 的结果是：

[1] "https://www.dictionaryapi.com/api/v3/references/collegiate/json/diurnal?key=99820690-b2a0-4aa3-902a-f54c7fa3c685"   
[2] "https://www.dictionaryapi.com/api/v3/references/collegiate/json/omnibus?key=99820690-b2a0-4aa3-902a-f54c7fa3c685"   
[3] "https://www.dictionaryapi.com/api/v3/references/collegiate/json/chatelaine?key=99820690-b2a0-4aa3-902a-f54c7fa3c685"
[4] "https://www.dictionaryapi.com/api/v3/references/collegiate/json/mantic?key=99820690-b2a0-4aa3-902a-f54c7fa3c685"    
[5] "https://www.dictionaryapi.com/api/v3/references/collegiate/json/limitrophe?key=99820690-b2a0-4aa3-902a-f54c7fa3c685"
[6] "https://www.dictionaryapi.com/api/v3/references/collegiate/json/oaf?key=99820690-b2a0-4aa3-902a-f54c7fa3c685" 

我只是不知道如何让它循环这些单独的调用。我需要在循环内嵌套循环吗？只是在寻找下一步。谢谢！

Answer 1

我认为最好将所有结果放在一个列表中并在最后rbind 它们。

library(dplyr)
library(jsonlite)

words_for_loop <- data.frame(V1 = c("diurnal", "omnibus", "chatelaine", 
                                    "mantic", "limitrophe", "oaf"))

home <- "https://www.dictionaryapi.com/api/v3/references/collegiate/json/"

key <- "my-api-key"

url_word_vector <- paste0(home, words_for_loop[[1]], "?key=", key)

do.call(rbind, lapply(url_word_vector, function(url) {
  fromJSON(url, flatten = TRUE) %>% 
    select(meta.id, fl, hwi.hw, shortdef) %>% 
    rename(name = meta.id, class = fl, pronunciation = hwi.hw, definition = shortdef) %>%
    as_tibble()
}))
#> # A tibble: 11 x 4
#>    name              class                     pronunciation          definition
#>    <chr>             <chr>                     <chr>                  <list>    
#>  1 diurnal:1         adjective                 di*ur*nal              <chr [3]> 
#>  2 diurnal:2         noun                      diurnal                <chr [2]> 
#>  3 omnibus:1         noun                      om*ni*bus              <chr [2]> 
#>  4 omnibus:2         adjective                 omnibus                <chr [2]> 
#>  5 justitia omnibus~ Latin phrase              jus*ti*tia om*ni*bus   <chr [1]> 
#>  6 quod semper, quo~ Latin quotation from {i_~ quod sem*per, quod ub~ <chr [1]> 
#>  7 the man on the C~ noun phrase               the man on the Clapha~ <chr [1]> 
#>  8 chatelaine        noun                      chat*e*laine           <chr [3]> 
#>  9 mantic            adjective                 man*tic                <chr [1]> 
#> 10 limitrophe        adjective                 lim*i*trophe           <chr [1]> 
#> 11 oaf               noun                      oaf                    <chr [2]>

^{由reprex package (v2.0.0) 于 2021 年 10 月 29 日创建}