r - 如何使用解析的变量打印函数体

Question

假设我有一个函数接受一些参数 k并返回另一个接受参数 n 的函数但使用 k在其函数体中。

makeFn <- function(k) {
  function(n){
    rep(k,n)
  }
}

five <- makeFn(5)

five(3)
# [1] 5 5 5

body(five)
# {
#    rep(k, n)
# }

如何打印 five 的正文以便它显示 rep(5,n)而不是 rep(k,n) ?

Answer 1

一种选择是结合 eval和 bquote .

makeFn <- function(k) {
  eval(bquote(function(n) rep(.(k),n)))
}

five <- makeFn(5)
body(five)
# rep(5, n)

.()符号说明 bquote评估括号中的任何内容，然后将结果包含在表达式中。