# NOT RUN {
df <- data.frame(
dates = sample(seq(Sys.Date() - 365, Sys.Date(), by = 1), 50),
times = sample(seq(Sys.time() - 1e7, Sys.time(), by = 1), 50))
# Input as a vector or dataframe
date_feats(df, keep_originals = TRUE) %>% head(10)
# Holidays given a date range and country
# }
# NOT RUN {
hol <- date_feats(
seq(Sys.Date() - 365, Sys.Date(), by = 1),
keep_originals = TRUE,
holidays = TRUE,
country = "Colombia")
head(hol[!is.na(hol$holidayname),])
# }
Run the code above in your browser using DataLab