Code
`BALANCE-PAIEMENTS` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2024-07-16 | 38809 |
Data - INSEE
`BALANCE-PAIEMENTS` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2024-07-16 | 38809 |
LAST_DOWNLOAD |
---|
2025-10-11 |
`BALANCE-PAIEMENTS` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
`BALANCE-PAIEMENTS` %>%
left_join(INSTRUMENTS_BALANCE_PAIEMENTS, by = "INSTRUMENTS_BALANCE_PAIEMENTS") %>%
group_by(INSTRUMENTS_BALANCE_PAIEMENTS, Instruments_balance_paiements) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
`BALANCE-PAIEMENTS` %>%
left_join(COMPTE, by = "COMPTE") %>%
group_by(COMPTE, Compte) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
COMPTE | Compte | Nobs |
---|---|---|
CREDITS | Crédits | 13593 |
SOLDE_SIMPLE | Solde | 13002 |
DEBITS | Débits | 12214 |
`BALANCE-PAIEMENTS` %>%
left_join(CORRECTION, by = "CORRECTION") %>%
group_by(CORRECTION, Correction) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
CORRECTION | Correction | Nobs |
---|---|---|
BRUT | Non corrigé | 31914 |
CVS | Corrigé des variations saisonnières | 6895 |
`BALANCE-PAIEMENTS` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()
`BALANCE-PAIEMENTS` %>%
filter(TIME_PERIOD == "2020-05",
== "SOLDE_SIMPLE",
COMPTE == "BRUT") %>%
CORRECTION left_join(INSTRUMENTS_BALANCE_PAIEMENTS, by = "INSTRUMENTS_BALANCE_PAIEMENTS") %>%
arrange(INSTRUMENTS_BALANCE_PAIEMENTS) %>%
select(INSTRUMENTS_BALANCE_PAIEMENTS, Instruments_balance_paiements, UNIT_MEASURE, OBS_VALUE) %>%
spread(UNIT_MEASURE, OBS_VALUE) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {