Wrap an emphatic object into an SVG for display in a github README.md

Idea borrowed from pointblank: https://github.com/rich-iannone/pointblank/blob/master/scripts/generate_roadmap.R

as_svg(x, width = 1200, height = 900, ...)

Arguments

x

emphatic object

width, height

viewBox dimensions for SVG

...

other arguments passed to as.character.emphatic

Value

character string containing an SVG snippet.