Using facetsviz

facetsviz reads FACETS .out files and returns a parsed facets_out object.

library(facetsviz)

facets <- read_facets("peerAssessment.out")
names(facets$measurement_reports)
plot_wright_map(facets)

For batch rendering:

render_plots(facets, output_dir = tempdir(), formats = c("png", "tiff"))