This appears to do the trick do.call('substitute', list(expr1[[1]], list(x=quote(cos(x))))) # if (cos(x)) { # return(y) # } else ...
確定! 回上一頁