[2016-06-29 Wed 20:58]
library(devtools)
load_all("~/git/orgr/orgR")
qs.file = "~/git/org/Archive/qs.org"clock.ds <- GetClockTable(qs.file)
clock.ds$duration = as.numeric(clock.ds$end - clock.ds$start , unit="secs")
library(grid)
library(gridExtra)
p = view.Clock(clock.ds)
grid.draw(p)