data-raw/predictors_monthly.R

In GaboCg/fintorwork: What the Package Does (One Line, Title Case)

library(dplyr, warn.conflicts = FALSE)
library(janitor)
library(magrittr)
library(openxlsx)
library(usethis)
library(readr)

predictors_monthly <- read.xlsx('data-raw/PredictorData2018.xlsx', sheet = 1)

predictors_monthly %<>%
  as_tibble() %>%
  clean_names() %>%
  mutate_each(list(~ as.numeric(.)), b_m:ntis, infl:crsp_s_pvwx)

write_csv(predictors_monthly, 'data-raw/predictors_monthly.csv')
usethis::use_data(predictors_monthly, overwrite = TRUE)