如何使用链式算子在R中自行计算？

Question

我有一个函数，其中x介于0和1之间：

如何使用%>%包中的链式运算符dplyr来执行此操作？

我尝试了以下内容：

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

但这是错的！如何找到链操作员自行计算的方法？我在这里做了一个小例子。我有一个很长的等式，并希望使用链式运算符使代码可读。

Answer 1

在OP似乎同意的情况下（并在此过程中删除虚假的)）将我的评论提升为答案：

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

在提示符下也是如此：

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> 

免责声明：在回答这个问题的过程中没有管道受伤。