GDP at market prices, linked series (current LCU)

Data - WDI

Nobs - Javascript

NY.GDP.MKTP.CN.AD %>%
  left_join(iso2c, by = "iso2c") %>%
  group_by(iso2c, iso2c_desc) %>%
  rename(value = value) %>%
  mutate(value = round(value/(10^9))) %>%
  summarise(Nobs = n(),
            `Year 1` = first(year),
            `GDP 1 (Bn)` = first(value),
            `Year 2` = last(year),
            `GDP 2 (Bn)` = last(value)) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Output - Countries

NY.GDP.MKTP.CN.AD %>%
  right_join(iso2c %>%
              filter((region != "Aggregates") & (region != "NA")), 
             by = "iso2c") %>%
  group_by(iso2c, iso2c_desc) %>%
  rename(value = value) %>%
  mutate(value = round(value/(10^9))) %>%
  summarise(`Year` = last(year),
            `GDP (Bn)` = last(value)) %>%
  arrange(-`GDP (Bn)`) %>%
  mutate(`GDP (Bn)` = `GDP (Bn)` %>% paste0("$ ", ., " Bn")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}