CPI_NWGT_COI_DT_A |>
filter(time %in% c(2006, 2010, 2014, 2018),
classif1 == "COI_COICOP_CP04") |>
left_join(ref_area, by = "ref_area") |>
select(ref_area, Ref_area, time, obs_value) |>
mutate(obs_value = round(obs_value, 1)) |>
spread(time, obs_value) |>
arrange(-`2018`) %>%
mutate_at(vars(-1, -2), funs(ifelse(!is.na(.), ., ""))) |>
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 .}