remotes::install_github("dreamRs/timelineschart")

## Some data
dates <- sample(seq(as.Date("2019-01-01"), as.Date("2019-11-30"), by = "day"), 55)
planning <- data.frame(
  group = paste("Group", rep(1:10, sample(1:10, 10))),
  label = paste("Label", letters[1:5][sample.int(5, 55, TRUE)]),
  start = dates,
  end = dates + sample(1:30, 55, TRUE),
  value = sample(c("Shutdown", "Maintenance"), 55, TRUE),
  stringsAsFactors = FALSE
)

## Timeline chart
timelines(data = planning, line_height = 24) %>%
  set_scale(palette = c("#FF0000", "#FAAC58"), discrete = TRUE) %>% 
  set_time(use_utc = TRUE)