如何在函数环境中测试变量的存在？

Question

给定函数f()如下：

f = function(a) {
  if(a > 0) b = 2
  c = exists('b')
  return(c)
}

如何指定exists()函数只应在函数f搜索？

在空白的环境中，调用f(-5)将按照我的意愿返回FALSE ，但如果我这样做

b = "hello"
f(-5)

然后我得到了TRUE 。 即使用户在函数f之外的脚本中的其他位置定义了b如何使f(-5)返回FALSE ？

我希望这与exists()的where参数有关exists()但我无法弄清楚调用此参数的适当环境是什么。 我仍然没有把头完全包裹在R的环境中......

谢谢！

Answer 1

只需使用exists的inherits=参数即可。 有关详细信息，请参阅?exists帮助页面

b <- 100
f <- function(a) {
  if(a > 0) b <- 2
  c <- exists('b', inherits=FALSE)
  return(c)
}
f(5)
# [1] TRUE
f(-5)
# [1] FALSE