你可能会更好用:
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(正如我在这里所做的那样),所以您确实不需要额外的步骤。