基本 R 管道的参数占位符 |>

Question

我试图了解|> 的工作原理，以及它与magrittr %>% 的比较。 考虑下面的代码，看/调试相当不爽：

toy <- data.frame(a = c(1,2,3), type = c("apple", "pear", "orange"))

set.seed(1)
subset(toy, type == "apple")[sample(nrow(subset(toy, type == "apple")), 1),]
#>   a  type
#>   1 1 apple

|> 的文档说：

管道符号允许以某种方式编写嵌套的调用序列 这可能会使处理步骤的顺序更容易遵循。

这让我相信类似的东西

toy |>
  subset(type == "apple") |>
  `[.data.frame`(sample(nrow(.), 1),)

是可能的，但不起作用，因为点在这里毫无意义。注意，[.data.frame 似乎绕过了|> 的 RHS 的 [ 限制。我试图通过在控制台中运行*backtick*|>*backtick* 来查找|> 的源代码，但结果是Error: object '|>' not found。

使用magrittr 管道，可以像这样使用占位符.：

library(magrittr)
toy %>%
  subset(type == "apple") %>%
  `[`(sample(nrow(.), 1),)
#>   a  type
#>   1 1 apple

问题

如何使用基本 R 管道 |> 正确编写嵌套调用？

Answer 1

toy <- data.frame(a = c(1,2,3), type = c("apple", "pear", "orange"))

set.seed(1)

toy |> subset(type == "apple") |> 
(\(x) x[sample(nrow(x), 1), ])()
 a  type
1 1 apple

toy |> subset(type == "apple") |> 
(\(x) `[.data.frame`(x, sample(nrow(x), 1), ))()
 a  type
1 1 apple