14 lines
391 B
R
14 lines
391 B
R
# utils for mosaic creation
|
|
|
|
date_list <- function(end_date, offset){
|
|
offset <- as.numeric(offset) - 1
|
|
end_date <- as.Date(end_date)
|
|
start_date <- end_date - lubridate::days(offset)
|
|
|
|
week <- week(start_date)
|
|
year <- year(start_date)
|
|
days_filter <- seq(from = start_date, to = end_date, by = "day")
|
|
|
|
return(list("week" = week, "year" = year, "days_filter" = days_filter))
|
|
}
|