foo <- list(
AA = qcv(terms="1"),
BB = qcv(terms="1:2, 3:10, 19"),
CC = qcv(terms="1:9, 100:150")
)
foo2 <- list(
AA = qcv(terms="40"),
BB = qcv(terms="50:90"),
CC = qcv(terms="60:90, 100:120, 150"),
DD = qcv(terms="")
)
(dat <- cm_range2long(foo, foo2, v.name = "time"))
gantt_wrap(dat, "code", "time")
Run the code above in your browser using DataLab