add clearWorkspace r function, = rm(list = ls())