Code
t_6101 %>%
filter(year == "2019") %>%
select(-year) %>%
mutate(value = round(value) %>% paste0(" Mds€")) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - INSEE
t_6101 %>%
filter(year == "2019") %>%
select(-year) %>%
mutate(value = round(value) %>% paste0(" Mds€")) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}t_6101d %>%
filter(year == "2019") %>%
select(-year) %>%
mutate(value = round(value) %>% paste0(" Mds€")) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}