In pachevalier/dataAN:

Import des données JSON

library(dplyr)
library(magrittr)
library(purrr)
library(tibble)
library(jsonlite)
library(dataAN)
json_egalite <- fromJSON("http://data.assemblee-nationale.fr/static/openData/repository/CONSULTATIONS_CITOYENNES/EGALITE/EGALITE.json")

Création de la table des enquêtés

table_enquetes <- tibble(
  id = extract2(json_egalite, "id"),
  sexe = extract2(json_egalite, "sexe")
  ) %>%
  rownames_to_column(var = "id_enquete")

Création de la table des questions réponses

make_table_egalite_question(extract2(extract2(json_egalite, "questions"), 1))  %>% glimpse()

table_questions_reponses <- map_df(.x = extract2(json_egalite, "questions"), make_table_egalite_question, .id = "id_enquete")

Jointure des tables enquêtés et question-réponse

table_questions_reponses %>%
  left_join(y = table_enquetes, by = "id_enquete")

Exports CSV

library(readr)
write_csv(table_enquetes, "../raw-data/table_egalites_enquetes.csv")
write_csv(table_questions_reponses, "../raw-data/table_egalites_questions_reponses.csv")

pachevalier/dataAN documentation built on May 24, 2019, 5:57 p.m.