#' @title mult.windows
#' @description unknown
#' @family abysmally documented
#' @author unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
mult.windows<-function(mars=par()$mar,mfrows=par()$mfrow) {
graphics.off()
if(exists(".SavedPlots",where=1)==T){rm(.SavedPlots,pos=1)}
par(mar=mars,mfrow=mfrows)
windows(record=T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.