R create tibble for open close hours to be used for timevis with type = "range"

open_closing_hours.R

library(tidyverse)
library(lubridate)

days <- tibble(date = seq(date("2018-01-01"), by = "days", length.out = 730)) %>% 
  mutate(day = weekdays(date))

hours <- tibble(daytype =   c("weekday", "weekday", "weekday", "weekday", "weekday", "weekend"),
                time_from = c("00:00",   "08:00",   "12:00",   "13:00",   "17:00",   "00:00" ),
                time_to =   c("08:00",   "12:00",   "13:00",   "17:00",   "23:59",   "23:59" ),
                state =     c("closed",  "open",    "closed",  "open",    "closed",  "closed"))

week <- tibble(#day = c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"),
               day = c("Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag"),
               daytype = c(rep("weekday", 5), rep("weekend", 2)))

days %>% left_join(left_join(week, hours, by = "daytype"), by = "day") %>% 
  mutate(start = ymd_hm(paste(date, time_from)),
         end =   ymd_hm(paste(date, time_to))) %>% 
  select(start, end, state) -> openclosed