library(ggplot2)
# Make a few svg webpages
tsplot = TimeSeriesPlot(airquality, x=airquality$Temp)
MakeAccessibleSVG(tsplot, file = "tsplot")
barChart = ggplot(Orange, aes(x = Tree)) +
geom_bar()
MakeAccessibleSVG(barChart, file = "barChart")
histogram = ggplot(attenu, aes(x=dist)) +
geom_histogram()
histogram
MakeAccessibleSVG(histogram, file="histogram")
# Display the 'home' page
ViewSVG()
# Cleaning up afterwards
# Created by the MakeAccessibleSVG (xml and svg are auto deleted)
unlink("histogram.html")
unlink("barChart.html")
unlink("tsplot.html")
unlink("index.html") # Created by the ViewSVG function
Run the code above in your browser using DataLab