thebioengineer

`%>>>%`<-function(lhs,rhs){
  parent <- parent.frame()
  env <- new.env(parent = parent)
  chain_parts <- magrittr:::split_chain(match.call(), env = env)
  eval(as.call(call("%>%",call("%>%",chain_parts$lhs$lhs,substitute(play)),chain_parts$lhs$rhs)))
}

play<-function(lhs){
  delayedexpr<-as.list(attr(lhs,"delayedeval"))
  delayedFunc<-delayedexpr[[length(delayedexpr)]]