r - 如何在 R 中创建函数列表？

Question

我有两个参数的函数，我想在一个参数中创建一个函数列表，如下所示：

flist <- lapply(c(1,2), function(x) { function(y) x + y })

这旨在创建一个包含两个函数的列表，第一个函数在其输入中添加一个；其中第二个在其输入中添加了两个。但它不起作用：

> flist[[1]](3)
[1] 5
> flist[[2]](3)
[1] 5

列表中的两个函数都将两个添加到它们的输入中。我有解决方法，但它们很难看，我想了解我做错了什么。