BrowseSVG: Merge svg and xml file in html file

In BrailleR: Improved Access for Blind Users

Merge svg and xml file in html file

Description

Creates a single HTML file that embeds an SVG diagram and its XML annotations. Then launches a browser tab to allow viewing and interactive exploration of the SVG diagram.

Usage

BrowseSVG(file="test", key=TRUE, footer = TRUE, view=interactive(), ggplot_object = NULL) 

Arguments

file	the filename for the HTML file; this should correspond to basename of an existing SVG and its XML annotations
key	include key for explorer's keyboard commands in webpage
footer	Whether the footer should be showed at bottom of webpage
view	launch in browser; this is the default when running in an interactive session
ggplot_object	This is the plot that the svg and XML are based off. If it is included than there will be the VI and the Describe information in the webpage.

Details

A HTML file is written in the current working directory. This HTML file will have the embeded svg and xml files as well as the javascript (diagcess) to help with the exploration of the graph. Note that it is required that you already have a svg and xml file in the current directory for it to work.

It is much easier however to just use the MakeAccessibleSVG function directly which does it all for you

Value

NULL. This function exists for its side effects only.

Author(s)

Volker Sorge and James A. Thompson

See Also

MakeAccessibleSVG, SVGThis, AddXML

Examples

library(ggplot2)
simpleHist = data.frame(x=rnorm(1e2)) |>
  ggplot(aes(x=x)) +
    geom_histogram()
file = "histogram"
pdf(NULL)  # create non-displaying graphics device for SVGThis and AddXML
svgfile = SVGThis(simpleHist, paste0(file, ".svg"),createDevice=FALSE)
xmlfile = AddXML(simpleHist, paste0(file, ".xml")) 
dev.off()  # destroy graphics device, now that we're done with it

BrowseSVG(file)

#Cleaing up from BrowseSVG
unlink(paste0(file, ".svg"))
unlink(paste0(file, ".xml"))
unlink(paste0(file, ".html"))

BrailleR documentation built on July 26, 2023, 5:46 p.m.