Code
%>%
t_1106 filter(date == as.Date("2019-12-31")) %>%
select(-date) %>%
mutate(value = round(value) %>% paste0(" Mds€")) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - INSEE
%>%
t_1106 filter(date == as.Date("2019-12-31")) %>%
select(-date) %>%
mutate(value = round(value) %>% paste0(" Mds€")) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {