Code
un_datasets |>
filter(id %in% (gsub(".qmd$", "", list.files(pattern = "\\.qmd$")))) |>
mutate(html = paste0('<a target=_blank href=', id, '.html > html </a>')) |>
select(id, Name.en, Nobs, html) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}
Data - UN