Trade - trade

Data - GFD

Variables

trade_info %>%
  select(Ticker, Name, Country) %>%
  right_join(trade %>%
               group_by(Ticker) %>%
               summarise(Nobs = n(),
                         start = first(year(date)),
                         end = last(year(date))), by = "Ticker") %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Country)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Metadata

trade_info %>% 
  select(Ticker, Name, Currency, Metadata, Flow) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

1925-1970

trade %>%
  bind_rows(gdp) %>%
  filter(iso3c == "FRA",
         month(date) == 12) %>%
  select(variable, date, value) %>%
  spread(variable, value) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}