In SGMAP-AGD/opensignauxfaibles: Open Signaux Faibles

library("opensignauxfaibles")
library("dplyr")
library("readr")
database_signauxfaibles <- database_connect()

src_tbls(database_signauxfaibles)

tbl(src = database_signauxfaibles, from = "wholesample") %>%
  distinct(siret) %>%
  collect() %>%
  mutate(siren = substr(x = siret, start = 1, stop = 9)) %>%
  distinct(siren) %>%
  write_csv(path = "output/liste_siren.csv")

SGMAP-AGD/opensignauxfaibles documentation built on May 15, 2019, 1:26 p.m.