data-raw/dow_jones_industrial/dow_jones_industrial.R

In clauswilke/dviz.supp: Supporting materials for Claus Wilke's data visualization book

library(tidyverse)
library(lubridate)

dow_jones_industrial <- read_csv(here::here("data-raw", "Dow_Jones", "DJI.csv")) %>%
  mutate(
    date = mdy(Date),
    open = Open,
    high = High,
    low = Low,
    close = Close,
    volume = Volume
  ) %>%
  select(date, open, high, low, close, volume)

devtools::use_data(dow_jones_industrial, overwrite = TRUE)