library(DiagrammeR)
(svg <- exportSVG(grViz('digraph{a->b; c->a; c->b; c->d;}',
engine = 'circo')))
# this can then be used with htmltools and can save significantly
# on size of output using svg rather than unrendered grViz
library(htmltools)
html_print(HTML(svg))
Run the code above in your browser using DataLab