United Nations - UN

Data

Author

Info

API Info html

Main Datasets

Javascript

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

Flat

Code

un_datasets %>%
  filter(id %in% (list.files(pattern = "\\.qmd$") %>% gsub(".qmd$", "", .))) %>%
  mutate(html = paste0("[html](",id, ".html)")) %>%
  select(id, Name.en, Nobs, html) %>%
  {if (is_html_output()) print_table(.) else .}

id	Name.en	Nobs	html
DF_UNDATA_MDG	SDMX-MDGs	387044	[html]
DF_UNDATA_SEEA_USE	SEEA USE DATA	1077068	[html]
DF_UNData_UIS	SDMX_UIS_UNData	1682984	[html]
NA_MAIN	NA Main Aggregates	1040170	[html]
NASEC_IDCNFSA_Q	Quarterly non-financial accounts	2544403	[html]

All Datasets

Code

un_datasets %>%
  select(id, Name.en, Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Other Datasets

Code

un_datasets %>%
  filter(!id %in% (list.files(pattern = "\\.qmd$") %>% gsub(".qmd$", "", .))) %>%
  select(id, Name.en, Nobs) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}