r - 在 dplyr 包中以链接方式添加属性

Question

有什么方法可以使用链式序列代码运算符 %>% 添加属性来自 dplyr包裹？

> library(dplyr)
> iris %>%
+   attr( "date") = Sys.Date()
Error in iris %>% attr("date") = Sys.Date() : 
  could not find function "%>%<-"
> 

谢谢回复。

Answer 1

你可以这样做:

R> tmp <- iris %>% `attr<-`("date", Sys.Date())

R> attr(tmp,"date")
[1] "2014-09-04"

这依赖于调用的事实:

attr(x, "foo") <- "bar"

相当于调用:

x <- `attr<-`(x, "foo", "bar")