R/gof.R

gof <- 
function () 
{
    while ((which <- dev.cur()) != 1) dev.off(which)
    if (exists('.SavedPlots')) rm(.SavedPlots, pos = 1)
}
John-R-Wallace-NOAA/JRWToolBox documentation built on June 1, 2024, 4:35 p.m.