data-raw/daily_niger.R

library(here)
library(lubridate)

daily_niger <- read.csv(here("data-raw", "daily_niger_raw.csv"))
names(daily_niger)[1] <- "station_name"
names(daily_niger)[4] <- "month"
names(daily_niger)[6] <- "day"
daily_niger$rain <- NULL
names(daily_niger)[9] <- "rain"

daily_niger$date <- as.Date(daily_niger$date)
daily_niger$month <- lubridate::month(daily_niger$date, label = TRUE)
# Don't want month as ordered factor as ordered is handled differently
# in model functions
class(daily_niger$month) <- "factor"

usethis::use_data(daily_niger, overwrite = TRUE)
IDEMSInternational/cdms.products documentation built on July 7, 2023, 10:13 a.m.