calendar week rows csv

cal-sheet.csv

cal-sheet.r

library(tidyverse)
library(lubridate)


# function to get calendar week -------------------------------------------
# copied and modified from: 
# http://stackoverflow.com/questions/27116645/r-week-function-returns-unexpected-values
calendar_week <- function(x){
    # fst monday of the same year
    first_sun <- as.POSIXct(paste0(year(x),"-01-Mon"), format = "%Y-%U-%a")
    ((yday(x) + (7 - yday(first_sun) + 1)) %/% 7) + 1
}

from <- "2017-01-01"
to <- "2018-01-01"

days <- seq(as_date(from), as_date(to), by = 1)



tibble(day = days,
       year = year(day),
       cw = calendar_week(day),
       month = month(day, label = T),
       monthday = mday(day),
       weekday = wday(day, label = T)) %>% 
    group_by(year, cw, month) %>% 
    select(-day) %>% 
    spread(weekday, monthday, fill = '') %>% 
    write_csv("cal-sheet.csv")