# Only if dependencies are installed
if (requireNamespace("DiagrammeRsvg", quietly = TRUE) &&
requireNamespace("rsvg", quietly = TRUE)) {
sfm <- stockflow("SIR")
file <- tempfile(fileext = ".png")
export_plot(plot(sfm), file)
# Remove plot
file.remove(file)
}
if (FALSE) {
# requires internet
# Only if suggested dependencies are installed
if (requireNamespace("htmlwidgets", quietly = TRUE) &&
requireNamespace("webshot2", quietly = TRUE)) {
# Requires Chrome to save plotly plot:
sim <- simulate(sfm)
export_plot(plot(sim), file)
# Remove plot
file.remove(file)
}
}
Run the code above in your browser using DataLab