cleaning up after example()

Dear R-help,

I find the example() function is extremely useful in many ways.  However,
there's a minor inconvenience: for long examples, it leaves lots of objects
in the workspace.  While it's sometimes useful to have the objects around
for further exploration, other times they just add to the clutter.  Does
anyone have a good way of cleaning up afterward?  If not, would R core
consider adding such a feature?

snapshot = ls()
example("smooth",pack="eda",lib.loc=.Library)

remove(list = ls()[!ls()%in%snapshot]) # also removes `snapshot'