rlang::new_function()を参考にしてこんな感じ？と思ったけど、 `%=>%` <- function(args, body) { args <- as.pairlist(args) body <- substitute(body) call("function", args, body) }