R/gof.R

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