関数の族をいっぺんに定義したいのですが可能でしょうか。

例えば、
f_n (x) = x+n　(n=1,2,...,100)
のような１００個の関数を定義したいのですが、
f <- list(NA)
for (i in 1:100){ f[[i]] <- function(x){ x+i }}
のようにすると、f[[1]]（関数fの1番目の要素）は、
function(x){ x+i }
となり、iが残ったままの形で定義されてしまいます。

ちなみに定義したい理由は、
別の関数の引数として用いるためです。