Stock Prices - stock

Data - GFD

Author

Code

stock <- read_parquet("stock.parquet")
stock_info <- read_parquet("stock_info.parquet")
nber_recessions <- read_parquet(here::here("data", "us", "nber_recessions.parquet"))

Variables

Code

stock_info |>
  select(variable = Ticker, Name, Country) |>
  right_join(stock |>
               group_by(variable) |>
               summarise(Nobs = n(),
                         start = first(year(date)),
                         end = last(year(date))), by = "variable") |>
  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

Code

stock_info |> 
  select(variable = Ticker, Name, Metadata) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}