[r] How can I remove all objects but one from the workspace in R?