a <- "hoge"
show <- function(x){
    cat("x is", deparse(substitute(x)) , "which is", x, '\n')
    cat("x is", substitute(x) , "which is", x, '\n')
}
show(a)
请教 deparse(substitute())和substitute()区别在那里？ 谢谢！