if (FALSE) {
# Working examples:
# Example plots to save
plots <- plot_annual_lowflows(station_number = "08NM116")
# Write the plots as "png" files
write_plots(plots = plots,
folder_name = "Low Flow Plots",
plot_filetype = "png")
# Write the plots as a combined "pdf" document
write_plots(plots = plots,
folder_name = "Low Flow Plots",
combined_pdf = TRUE)
}
Run the code above in your browser using DataLab