Use viz.js with V8 to get the diagram rendered as SVG
in R instead of the browser.
Examples
if (FALSE) { # \dontrun{
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))
} # }