R：覆盖父命名空间中的一个变量

Question

函数setMeZero如何查看以便可以执行以下操作？

a = 1 
b = 2 
setMeZero(a) 
setMeZero(b) 
a == 0 
# TRUE 
b == 0 
# TRUE 

编辑：我真的打算就这样，无论是好方式或不是另一个问题。

Answer 1

你可以做这样的事情

setMeZero <- function(x){ 
    nm <- deparse(substitute(x)) 
    assign(nm, 0, parent.frame()) 
    invisible() 
} 
a <- 1 
b <- 2 
setMeZero(a) 
setMeZero(b) 
a == 0 
# TRUE 
b == 0 
# TRUE