Clean R environment but...

Example to remove everything from the environment, except an object called sobj:

#!/usr/bin/R

rm(list = setdiff(ls(), "sobj"))