使用函数声明和删除变量的有效方法

Question

请提出一种使用函数调用声明和删除变量列表的更有效方法。问题在于，对于abc中添加的每个init.trial全局变量，我必须向abc中添加一个rm.init.trial。

init.trial <- function(){
  xyz <<- 1
  abc <<- "hi"
}

rm.init.trial <- function(){
  rm(xyz, abc, pos=1)
}

我已经考虑在switch内使用init.trail，但这与上面没有什么不同。 （我仍然必须两次输入abc：一个用于初始化，另一个用于删除）