UNE_TUNE_SEX_AGE_DUR_DT_A %>%
filter(classif1 == "AGE_YTHADULT_YGE15",
sex == "SEX_T") %>%
arrange(ref_area, time) %>%
left_join(ref_area, by = "ref_area") %>%
group_by(ref_area, Ref_area) %>%
summarise(year1 = first(time),
value1 = first(obs_value) %>% round() %>% paste0(" %"),
year2 = last(time),
value2 = last(obs_value) %>% round %>% paste0(" %")) %>%
arrange(year1) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Ref_area)),
Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
select(Flag, everything()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}