r - 你如何用赋值运算符结束管道？

Question

我想用 R 中的赋值运算符结束管道。

我的目标(在伪 R 中):

data %>% analysis functions %>% analyzedData

其中 data 和analyzedData 都是一个data.frame。

我已经尝试了几个变体，每个变体都给出了一个独特的错误消息。
我尝试过的一些迭代:

data %>% analysis functions %>% -> analyzedData
data %>% analysis functions %>% .-> analyzedData
data %>% analysis functions %>% <-. analyzedData
data %>% analysis functions %>% <- analyzedData

错误信息:

Error in function_list[[k]](value) : 
  could not find function "analyzedData"
Error: object 'analyzedData' not found
Error: unexpected assignment in: ..

更新:
我想出的方法是:

data %>% do analysis %>% {.} -> analyzedData

这样，要对长管道进行故障排除/调试，您可以将这两行放入管道中，以最大限度地减少代码重新运行并隔离问题。

data %>% pipeline functions %>% 
   {.}-> tempWayPoint
   tmpWayPoint %>% 
more pipeline functions %>% {.} -> endPipe 

Answer 1

将分配作为第一件事可能是最简单的(如 scoa 提到的)，但如果你真的想把它放在最后，你可以使用 assign

mtcars %>% 
  group_by(cyl) %>% 
  summarize(m = mean(hp)) %>% 
  assign("bar", .)

它将输出存储到“bar”中

或者，您可以只使用 ->运算符(operator)。您在问题中提到了它，但看起来您使用了类似的东西

mtcars %>% -> yourvariable

代替

mtcars -> yourvariable

你不想拥有 %>%前面 ->