R pipe

rpipe.r

`|` <- function(a, b) {
	env <- parent.frame()
	ret <- eval(a, env)
    bb <- llply(substitute(b), function(x) if(x==alist(,)[[1]]) ret else x)
    if (length(bb) == 1) bb[[2]] <- ret
    invisible(eval(as.call(bb), env))
}

s <- "a"
(1 + 1) | paste(,2, sep=s) | sub("a", "b", ) | print