library(DiagrammeR)
(svg <- exportSVG(grViz('digraph{a->b; c->a; c->b; c->d;}', engine = 'circo')))
# this can then be used with htmltools
# 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