Question

我有一个函数可能最终被嵌套（Inner）和一些其他函数（通常这个函数不会被人知道），我正在调用Outer，并且我希望Inner能够产生相同的结果，无论包装函数如何（Outer在下面的例子中）。

Inner <- function(x,baz,bang){
  # code stuff things ...
  x.prime = as.character(substitute(x))
  return(c(x.prime,y,z))
}

Outer <- function(y){
  Inner(y)
}
Inner(a)
# "a" "stuff" "things" , which is what I'm expecting, in particular the "a".
Outer(a)
# "y" .... , but I was expecting to get "a"?

当然，如果有人知道更好的方法，我就不会使用替代品。

有没有人有任何线索如何让Inner输出相同的结果，无论它是否嵌套？

提前感谢。

Answer 1

这是一个可以帮助您解决问题的大纲：

Inner <- function(x) {
  my.call <- quote(substitute(x))    # we quote this here because we are going to re-use this expression
  var.name <- eval(my.call)

  for(i in rev(head(sys.frames(), -1L))) { # First frame doesn't matter since we already substituted for first level, reverse since sys.frames is in order of evaluation, and we want to go in reverse order
    my.call[[2]] <- var.name         # this is where we re-use it, modified to replace the variable
    var.name <- eval(my.call, i)
  }
  return(var.name)
}
Outer <- function(y) Inner(y)
Outer2 <- function(z) Outer(z)

现在让我们运行这些功能：

Inner(1 + 1)
# 1 + 1
Outer(2 + 2)
# 2 + 2
Outer2(3 + 3)
# 3 + 3

Inner始终返回最外层的表达式（您不会看到y或z，只会看到.GlobalEnv中输入的表达式。

这里的诀窍是使用sys.frames()，并反复substitute，直到我们达到顶级。

注意这假设所有＆＃34;外部＆＃34;函数只是将它们的论证转发到下一个内部函数。如果你有类似的东西，事情可能变得更加复杂/不可能：

Outer <- function(y) Inner(y + 1)

此代码不会检查该类型的问题，但您可能应该在代码中。另外，请记住，此处的假设是您的函数只能从R命令行调用。如果有人将你的功能包裹在你的周围，你可能会得到意想不到的结果。

R - 在嵌套函数中使用替换

1 个答案: