inst/examples/example_v8.R

In timelyportfolio/timelineR: Interactive Timelines

library(V8)

ctx <- new_context()
# get d3
ctx$source(system.file("htmlwidgets/lib/d3/d3.min.js",package="timelineR"))
# get d3.layout.timeline
ctx$source(system.file("htmlwidgets/lib/d3.layout.timeline/d3.layout.timeline.js",package="timelineR"))
# assign the simple example data to data
ctx$assign("data", read.csv("http://bl.ocks.org/emeeks/raw/d24171dac80dd535521b/int_bands.csv"))
# do the layout and get it in R
ctx$eval(
'
var timeline = d3.layout.timeline()
  .size([1000,300])
  .bandStart(function (d) {return d.s})
  .bandEnd(function (d) {return d.e})
  .dateFormat(function (d) {return parseInt(d)})

timelineBands = timeline(data);
'
)
# see if it worked
time_bands <- ctx$get("timelineBands")

# try to plot
plot.new()
plot.window(xlim=c(0,1000),ylim=c(300,0))
rect(
  xleft = time_bands$start,
  ybottom = time_bands$y,
  xright = time_bands$end,
  ytop = time_bands$y + time_bands$dy,
  col = "#687a97"
)

library(ggplot2)
ggplot(
  time_bands,
  aes(
    xmin = start,
    ymin = y,
    xmax = end,
    ymax = y + dy
  )
) + ylim(300,0) + geom_rect(fill = "#687a97", colour = "white")