In SGMAP-AGD/opensignauxfaibles: Open Signaux Faibles

library("opensignauxfaibles")
library("lubridate")
#library("knitr")
#opts_knit$set(progress = TRUE, verbose = FALSE, echo = FALSE, message = FALSE)
database_signauxfaibles <- database_connect()
sirene <- get_sirene(db = database_signauxfaibles, .siret = params$siret)

Informations principales

• Raison sociale : r get_raisonsociale(db = database_signauxfaibles, .siret = params$siret)
• SIRET : r params$siret
• SIREN : r sirene$siren
• Numero URSSAF : r get_accountnumber(db = database_signauxfaibles, .siret = params$siret)
• Date de création : r format(ymd(paste0(sirene$date_creation_etablissement, "-01")), "%m-%Y") (source SIRENE)
• Secteur d'activité : r sirene$libelle_naf_niveau1

Effectif

get_effectif(db = database_signauxfaibles, .siret = params$siret)

plot_effectif(db = database_signauxfaibles, .siret = params$siret)

Plan CCSF

is_ccsf(db = database_signauxfaibles, siret = params$siret)

Cotisations

get_meancotisation(db = database_signauxfaibles, siret = params$siret)

Evolution des cotisations moyennes

plot_meancotisation(db = database_signauxfaibles, siret = params$siret)

Evolution des cotisations moyennes par salarié

plot_ratio_cotisation_effectif(db = database_signauxfaibles, siret = params$siret)

Evolution de la part ouvriere cumulée

plot_dettecumulee(db = database_signauxfaibles, siret = params$siret, variable = "montant_part_ouvriere")

Evolution de la dette patronale cumulée

plot_dettecumulee(db = database_signauxfaibles, siret = params$siret, variable = "montant_part_patronale")

Evolution de la dette cumulée

plot_dettecumulee(db = database_signauxfaibles, siret = params$siret, variable = "dettecumulee")

Evolution du ratio de dette cumulée sur les cotisations

plot_ratio_dettecumulee_cotisation(db = database_signauxfaibles, siret = params$siret)

Délais

get_delais(database_signauxfaibles, siret = params$siret)

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