data-raw/eer.R

In mitsuoxv/tqr: Add tq_xx functions to tidyquant package to facilitate economic analyses

## code to prepare `eer` dataset goes here

# Libraries
library(tidyverse)

# I use monthly effective exchange rate indices of 60 countries,
# which BIS publishes on https://www.bis.org/statistics/eer.htm.

httr::GET("https://www.bis.org/statistics/eer/broad.xlsx",
          httr::write_disk("data-raw/broad.xlsx", overwrite = TRUE))

broad <- "data-raw/broad.xlsx"

res1 <- readxl::read_excel(broad, sheet = "Real", skip = 3)
reer <- readxl::read_excel(broad, sheet = "Real", skip = 4)
names(reer) <- names(res1)
names(reer)[1] <- "date"
reer$symbol <- "reer"

res2 <- readxl::read_excel(broad, sheet = "Nominal", skip = 3)
neer <- readxl::read_excel(broad, sheet = "Nominal", skip = 4)
names(neer) <- names(res2)
names(neer)[1] <- "date"
neer$symbol <- "neer"

eer <- bind_rows(reer, neer)

eer <- eer %>%
  mutate(date = as.Date(date)) %>%
  pivot_longer(!c(date, symbol), names_to = "area") %>%
  pivot_wider(names_from = symbol) %>%
  mutate(deflator = neer / reer * 100) %>%
  pivot_longer(!c(date, area), names_to = "symbol") %>%
  pivot_wider(names_from = area) %>%
  arrange(symbol, date)

usethis::use_data(eer, overwrite = TRUE)