R/gof.R

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