##R
R
function(x) if (identical(substitute(x), x)) FALSE else substitute(x)
substitute
returns the parse tree for an unevaluated expression. The identical
conditional makes sure that this unevaluated expression isn't identical to the expression itself; i.e. that the passed in parameter isn't a literal.