In SGMAP-AGD/opensignauxfaibles: Open Signaux Faibles

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

src_tbls(x = database_signauxfaibles)

Effectif

compute_wholesample_effectif(
  db = database_signauxfaibles,
  name = "wholesample_effectif",
  start = params$start,
  end = params$end,
  last = params$last
  )

Altares

compute_wholesample_altares(
  db = database_signauxfaibles,
  name = "wholesample_altares",
  start = params$start,
  end = params$end)

Préfiltre ALTARES

compute_wholesample_prefilter_altares(
  db = database_signauxfaibles,
  name = "wholesample_prefilter_altares",
  start = params$start,
  end = params$end
  )

Activité partielle

compute_wholesample_apart(
  db = database_signauxfaibles,
  name = "wholesample_apart",
  start = params$start,
  end = params$end
  )

compute_wholesample_apartconsommee(
  db = database_signauxfaibles,
  name = "wholesample_apartconsommee",
  start = params$start,
  end = params$end
  )

Cotisations moyennes

compute_wholesample_meancotisation(
  db = database_signauxfaibles,
  name = "wholesample_meancotisation",
  start = params$start,
  end = params$end
  )

Dette cumulée

compute_wholesample_dettecumulee(
  db = database_signauxfaibles,
  name = "wholesample_dettecumulee",
  start = params$start,
  end = params$end
  )

compute_wholesample_dettecumulee_12m(
  db = database_signauxfaibles,
  name = "wholesample_dettecumulee_12m",
  start = params$start,
  end = params$end
  )

compute_wholesample_lagdettecumulee(
  db = database_signauxfaibles,
  name = "wholesample_lagdettecumulee",
  start = params$start,
  end = params$end
  )

Nombre de débits

compute_wholesample_nbdebits(
  db = database_signauxfaibles,
  name = "wholesample_nbdebits",
  start =  params$start,
  end = params$end)

Délais URSSAF

compute_wholesample_delais(
  db = database_signauxfaibles,
  name = "wholesample_delais",
  start = params$start,
  end = params$end
  )

Plan CCSF

compute_wholesample_ccsv(
  db = database_signauxfaibles,
  name = "wholesample_ccsv",
  start = params$start,
  end = params$end
  )

Wholesample

compute_wholesample(
  db = database_signauxfaibles,
  name = "wholesample"
  )

wholesample <- collect_wholesample(
  db = database_signauxfaibles,
  table = "wholesample"
  )

readr::write_csv(wholesample, path = "output/wholesample.csv")
save(wholesample, file = "output/wholesample.Rda")

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