あんま好きじゃないけど

f<-sapply(1:10,function(i)eval(parse(text=paste("function(x){x+",i,"}"))))

とか

f<-list()
for(i in 1:10)f[[i]]<-eval(parse(text=paste("function(x){x+",i,"}")))

とか