decompose

decompose <- function(expr) {
  expr <- substitute(expr)
  funs <- setdiff(all.names(expr), all.vars(expr))
  wrapped <- list()
  for (fun in funs) {
    fun_env <- environment(get(fun, envir = parent.frame()))
    if(is.null(fun_env))
      namespace <- "base"
    else
      namespace <- getNamespaceName(fun_env)
    namespaced_fun <- paste0(namespace,"::`", fun, "`")
    f <- as.function(c(alist(...=), bquote({
      sc  <- sys.call()
      sc_bkp <- sc
      sc[[1]] <- quote(.(str2lang(namespaced_fun)))
      res <- eval.parent(sc)
      message(deparse(sc_bkp))
      print(res)
    })))
    wrapped[[fun]] <- f
  }
  eval(expr, envir = wrapped, enclos = parent.frame())
}