# 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))
}