~/data/wdi/

Info

LAST_DOWNLOAD

tibble(dataset = c("SP.DYN.TFRT.IN", "NY.GDP.MKTP.KD.ZG", "NY.GDP.MKTP.CD")) %>%
  mutate(LAST_DOWNLOAD = as.Date(file.info(paste0("~/Dropbox/website/data/wdi/", dataset, ".RData"))$mtime)) %>%
  mutate(html = paste0("[html](https://fgeerolf.com/data/wdi/", dataset, '.html)')) %>%
  print_table_conditional()
dataset LAST_DOWNLOAD html
SP.DYN.TFRT.IN 2023-01-21 html
NY.GDP.MKTP.KD.ZG 2022-11-21 html
NY.GDP.MKTP.CD 2022-12-01 html

LAST_COMPILE

LAST_COMPILE
2023-01-21

Last

SP.DYN.TFRT.IN %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(year)) %>%
  head(1) %>%
  print_table_conditional()
year Nobs
2020 253

Nobs - Javascript

SP.DYN.TFRT.IN %>%
  left_join(iso2c, by = "iso2c") %>%
  group_by(iso2c, Iso2c) %>%
  rename(value = `SP.DYN.TFRT.IN`) %>%
  summarise(Nobs = n(),
            `Year 1` = first(year),
            `Pop 1` = first(value),
            `Year 2` = last(year),
            `Pop 2` = last(value)) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Iso2c)),
         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 .}