# initialize
obj_list <- ls()
# leave only "source_path", remove objects
obj_list <- obj_list[-which(obj_list == "source_path")]
rm(list=obj_list)