在 R 中使用 deparse 进行强制评估

Question

我有一个产生函数的函数：

fun1 <- function (x)
    return (function() x)

到函数生成时， x的值已经基本上是一个常数：

fun2 <- fun1 ("a")

但是，当我打印fun2 ，它不会显示实际值，它只显示"x"即使它现在已经过时了：

> fun2
function() x
<environment: 0x55a9f94f9fc8>

如何强制对x进行评估，以便fun2打印为

function() "a"

或者它是如何生产的？

Answer 1

没有必要在这里诉诸deparse 。 您可以将 x 的评估值写入新创建的函数体：

fun1 <- function (x){
  f <- function() x
  body(f) <- x
  f
}

以便：

fun1("a")
#> function () 
#> "a"
#> <environment: 0x00000146d0449dd8>

和

f <- fun1("a")
f()
#> [1] "a"

编辑

如果你想让f接受一个论点，你可以这样做：

fun1 <- function (x){
  f <- function(y) y + x
  body(f)[[3]] <- x
  f
}

以便

fun1(3)
#> function (y) 
#> y + 3
#> <environment: 0x00000146d4b702a0>

Answer 2

这将替换fun主体中的所有x实例。 在示例中fun1有一个参数，但它将继续使用fun使用的多个fun1参数将它们全部替换为fun 。 我们还将fun的环境设置为fun1的调用者中的环境，允许调用者根据需要通过指定envir来更改该envir 。

fun1 <- function (x, envir = parent.frame()) {
    fun <- function() x
    body(fun) <- do.call("substitute", list(body(fun)))
    environment(fun) <- envir
    fun
}

fun2 <- fun1("a")
fun2
## function () 
## "a"

environment(fun2)
## <environment: R_GlobalEnv>