Many thanks to B.Gunter, S.Smith, S.Buttrey and especially to Rolf Turner for
immediate help with trashing my S-stuff. Here is the most elegant solution by
R.Turner:
Works perfect!
function()
{
# Function clean.
lll <- objects()
for(xxx in lll) {
cat("remove ", xxx, "? ")
ans <- readline()
if(ans == "y")
remove(xxx)
}
invisible()
}
Simon Rosenfeld
NOAA Science Center,
NESDIS/Satellite Research Lab
Camp Springs, MD
-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu. To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message: unsubscribe s-news
|