R/xetra.R

In pieterprovoost/quantr: Fetch financials and stock market data.

#' Get Xetra tickers
#'
#' This gets all Xetra ticker symbols from the Xetra website.
#'
#' @return tibble
#' @export
#' @examples
#' xetra_tickers()
xetra_tickers <- function() {
  url <- "https://www.xetra.com/resource/blob/1528/fd276b284c2590e4645b8be8e1e5e601/data/t7-xetr-allTradableInstruments.csv"
  df <- read.csv(url, sep = ";", skip = 2)
  result <- df %>%
    select(
      name = Instrument,
      isin = ISIN,
      symbol = Mnemonic,
      mic = MIC.Code,
      mic_primary = Primary.Market.MIC.Code,
      mic_reporting = Reporting.Market,
      currency = Settlement.Currency,
      instrument_type = Instrument.Type
    ) %>%
    mutate(market = "Xetra") %>%
    as_tibble()
  return(result)
}