14 lines
810 B
R
14 lines
810 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))
|
||
}
|