data-raw/flow_rates/flow_rates-dataprep.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

library(readr)

# load data ---------------------------------------------------------------------

flow_rates <- read.csv("river_flow.csv")

# cleaning: correct data type and format for date -------------------------------

flow_rates$date <- as.Date(flow_rates$date, 
                           format = "%m/%d/%Y")

# save --------------------------------------------------------------------------

usethis::use_data(flow_rates, overwrite = TRUE)