## Not run:
# library(DiagrammeR)
# svg <- export_svg(grViz('digraph{a->b; c->a; c->b; c->d;}'))
#
# # 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))
# ## End(Not run)
Run the code above in your browser using DataLab