r - 在管道％>％中保存saveRDS并让其返回对象

有没有办法在管道%>%链中使用saveRDS？

c(1,2,3) %>%
saveRDS(file="123.rda") %>%
mean()

当前这会导致错误，因为saveRDS返回null。

我希望saveRDS()返回c(1,2,3)!

最佳答案

我们可以使用tee中的%T>(magrittr)运算符

library(magrittr)
1:3 %T>%
   saveRDS(file="123.rda") %>%
   mean
#[1] 2

如果我们想返回相同的对象，请使用I

1:3 %T>%
  saveRDS(file="123.rda") %>%
  I
#[1] 1 2 3

根据?"%T>%"