如何在 R 中使用链运算符进行自身计算？

Question

I have a function, where x is between 0 and 1:

How can I use the chain operator %>% from dplyr package to do it?

I tried the following:

x = 0.5
y <- (x-1)^2 %>% 1-. %>% sqrt()

But this is wrong! How can I find a way with the chain operator do calculation with itself? I made here just a small example. I have a long equation and want to made the code readable with chain operator.

Answer 1

Promoting my comment to an answer as the OP appears to agree (and removing a spurious ) in the process):

computeY <- function(x) { sqrt(1-(x-1)^2) }

which at the prompt works as well:

R> computeY <- function(x) { sqrt(1-(x-1)^2) }
R> sapply((1:5)/10, computeY)
[1] 0.435890 0.600000 0.714143 0.800000 0.866025
R> 

Disclaimer: No pipes were hurt in the production of this answer.