# NOT RUN {
#read SVG file
fpath <- system.file("extdata", "fig1.svg", package="svgtools")
svg <- read_svg(file = fpath)
#display SVG file in standard viewport
display_svg(svg = svg, width = 500)
# }
Run the code above in your browser using DataLab