Hope this is helpful

lazy.list <-
function(lst, elt)
{
    attach(lst)
    elt
}

this.call <- as.call(expression, lazy.list, a.lst, an.elt)

# ... 

eval(this.call)