Why different output from math expression nest in function vs. called directly?

Question

Struct a weird effect in R. When coding a math expression as a function you get a different output than when coded directly? Any good explanations/solutions?

myfun <-