r - 打印 R 函数中的循环数

Question

当我调用 R 时

l <- list()
for (i in 1:4) {
  l[[i]] <- function(x) exp(i*x)
}

在列表的每个条目中，都可以找到输出

function(x) exp(i*x)

但我想要的是，我在调用 l[[1]] 时得到的输出

function(x) exp(1*x)

当我调用 l[[2]] 时的输出

function(x) exp(2*x)

等等。有可能用 R 编写这个代码吗？预先感谢您!

Answer 1

尝试

l <- sapply(1:4, function(k) eval(str2lang(sprintf("function(x) exp(%s*x)", k))))

这给出了

> l
[[1]]
function (x)
exp(1 * x)
<environment: 0x000000001fb8f348>

[[2]]
function (x)
exp(2 * x)
<environment: 0x000000001fb8c350>

[[3]]
function (x)
exp(3 * x)
<environment: 0x000000001f7c4ef8>

[[4]]
function (x)
exp(4 * x)
<environment: 0x000000001f7c5c50>