r - 在管道 %>% 中保存 RDS 并让它返回对象

Question

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

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

这目前给出一个错误，因为 saveRDS 返回空值。

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

Answer 1

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

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>%"

Pipe a value forward into a function- or call expression and return the original value instead of theresult. This is useful when an expression is used for its side-effect, say plotting or printing.