In pachevalier/dataAN:

Pour faciliter l'usage des données de consultations sur les institutions, ce script R permet de générer un fichier au format tabulaire.

library(listviewer)
library(rvest)
library(purrr)
library(tibble)
library(magrittr)
library(dataAN)
library(readr)
library(xml2)

Import du fichier XML

list_institutions <- read_xml(x = "http://data.assemblee-nationale.fr/static/openData/repository/CONSULTATIONS_CITOYENNES/INSTITUTIONS/Institutions.xml") %>% as_list()

Table des thèmes

tibble(
  titre_theme = map_chr(map(list_institutions$themes, .f = "titre"), 1)
  )

Table des réponses à une question

make_reponses_table(x = list_institutions$themes[[1]]$questions[[1]]) %>% glimpse()

Table des questions-réponses pour un thème

make_questions_reponses_table(x = list_institutions$themes[[1]]) %>%
  glimpse()

Table de l'ensemble des questions réponses avec tous les thèmes

map_df(.x = list_institutions$themes, make_questions_reponses_table)

Export au format CSV

table_questions_reponses <- map_df(.x = list_institutions$themes, make_questions_reponses_table)
write_csv(table_questions_reponses, path = "../raw-data/institutions.csv")

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