Thanks –
in all I received 6 responses.
I’ve
elected to use the following for my purposes
for(i in
1:(length(dev.list()))) {
dev.off(which =
dev.cur())
}
The summarized
responses were:
1. Look at dev.off()
2. guiSetOption(
option.name="SaveGraphPrompt", value.string="F" ) then
reset =“T” afterwards if desired
3. create a function
writeGraphFile = function (graph, fname)
{
guiSave(
"GraphSheet", Name = graph, FileName=fname)
guiClose(
"GraphSheet", graph)
invisible()
cat(paste("Graph",graph,"has been saved as",fname))
}
For instance
writeGraphFile(“GSD2”,”C:\test.sgr”)