Code
`CNA-2014-TEI` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2023-05-31 | 86537 |
| 2022-06-03 | 15776 |
Data - INSEE
`CNA-2014-TEI` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2023-05-31 | 86537 |
| 2022-06-03 | 15776 |
| LAST_DOWNLOAD |
|---|
| 2025-12-27 |
| LAST_COMPILE |
|---|
| 2025-12-27 |
`CNA-2014-TEI` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
head(1) %>%
print_table_conditional()| TIME_PERIOD | Nobs |
|---|---|
| 2022 | 129 |
`CNA-2014-TEI` %>%
left_join(CNA_ACTIVITE, by = "CNA_ACTIVITE") %>%
group_by(CNA_ACTIVITE, Cna_activite) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()`CNA-2014-TEI` %>%
left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
group_by(CNA_PRODUIT, Cna_produit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}`CNA-2014-TEI` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()`CNA-2014-TEI` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()