2016-12-31 389 views

回答

4

你可能会更好用:

library(jsonlite) 
library(tibble) 
library(dplyr) 

res <- GET("http://mics.unicef.org/api/survey") 

content(res, as="text") %>% 
    fromJSON(flatten=TRUE) %>% 
    as_tibble() %>% 
    glimpse() 
## Observations: 312 
## Variables: 11 
## $ round    <chr> "MICS1", "MICS1", "MICS1", "MICS1", "MICS1",... 
## $ region   <chr> "Central and Eastern Europe and the Commonwe... 
## $ country   <chr> "Croatia", "Kyrgyzstan", "Turkey", "Turkmeni... 
## $ country_in_filter <chr> "Croatia", "Kyrgyzstan", "Turkey", "Turkmeni... 
## $ year    <chr> "1996", "1995", "1995", "1995", "1996", "199... 
## $ status   <chr> "Completed", "Completed", "Completed", "Comp... 
## $ reports   <list> [<Final, https://mics-surveys-prod.s3.amazo... 
## $ archive   <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ... 
## $ extra_info  <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ... 
## $ dataset.status <chr> "Not available", "Not available", "Not avail... 
## $ dataset.url  <chr> "", "", "", "", "", "", "", "", "", "", "", ... 

相同的数据也更多的数据。

该URL用于构建顶级过滤器行(该网站发出几个XHR请求来构建表和过滤器行)。 CSV“导出”是一个额外的步骤,因为您可以直接抓取XHR URL(正如我在这里所做的那样),所以您确实不需要额外的步骤。