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 .}