R/gantt_timevis.R

In takewiki/tsdv: data visual elements and libraries in takewiki solutions

gantt_timevis <- function() {
  library(timevis)

  data <- data.frame(
    id      = 1:4,
    content = c("Item one"  , "Item two"  ,"Ranged item", "Item four"),
    start   = c("2016-01-10", "2016-01-11", "2016-01-20", "2016-02-14 15:00:00"),
    end     = c(NA          ,           NA, "2016-02-04", NA)
  )

  timevis(data)

}