R にラムダ式を導入する #rstatsj - Qiita

install.packages("lazyeval") # インストールしていない人のみ library(lazyeval) lambda <- function(..., envir = parent.frame()) { if(!require(lazyeval)) stop("Please install.packages('lazyeval')") args <- lazyeval::lazy_dots(...) if(length(args) == 0) return(function() {}) args <- Map(function(x) x$expr, args) vars <- unlist(Map(function(x) deparse(x), args[-length(args)])) expr <- as.character(args[length(args)]