library(pipeR)
amGanttChart(segmentsField = "segments"
) %>>% setDataProvider(data.frame(category = c( "John", "Julia"))
) %>>% addSegment(1, data.frame(start = 7, duration = 2:3, task = c("Task #1", "Task #2"))
) %>>% addSegment(2, data.frame(start = 10, duration = 2:3, task = c("Task #1", "Task #2")))
ls <- list( data.frame(start = 7, duration = 2:3, task = c("Task #1", "Task #2")),
data.frame(start = 10, duration = 2:3, task = c("Task #1", "Task #2")))
amGanttChart(segmentsField = "segments"
) %>>% setDataProvider(data.frame(category = c( "John", "Julia"))
) %>>% addSegment( 1:2, ls)
Run the code above in your browser using DataLab