CODEWITHSUNDEEP
rattributesattrchainingdplyr
Marcin
Marcin

Reputation: 8054

Adding attributes in chaining way in dplyr package

Is there any way to add an attribute using chaining sequence code operator %>% from dplyr package?

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

Thanks for respone.

Upvotes: 6

Views: 1875

Answers (3)

ctbrown
ctbrown

Reputation: 2361

If the attribute name is known, the simplest solution is to use the structure function:

library(dplyr)

iris <- 
  iris %>%
  structure( date=Sys.Date() )

attr(iris,"date")  # "2017-02-24"

When the attribute name is not know, @juba's solutions seems to be the best alternative.

Upvotes: 7

A5C1D2H2I1M1N2O1R2T1
A5C1D2H2I1M1N2O1R2T1

Reputation: 193647

You can also consider setattr from "data.table":

library(dplyr)
library(data.table)
names(attributes(iris))
# [1] "names"     "row.names" "class" 

iris %>% setattr(., "date", Sys.Date())
names(attributes(iris))
# [1] "names"     "row.names" "class"     "date" 
attributes(I2)$date
# [1] "2014-09-04"

Of course, no chaining is actually required for something like this. You could just do:

setattr(iris, "date", Sys.Date())

This allows you to set attributes without copying the objects in question:

> v1 <- 1:4
> v2 <- 1:4
> tracemem(v1)
[1] "<0x0000000011cffa38>"
> attr(v1, "foo") <- "bar"
tracemem[0x0000000011cffa38 -> 0x0000000011d740f8]: 
> tracemem(v2)
[1] "<0x0000000011db2da0>"
> setattr(v2, "foo", "bar")
> attributes(v2)
$foo
[1] "bar"

Upvotes: 6

juba
juba

Reputation: 49033

You can do it this way :

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

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

This relies on the fact that calling :

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

is equivalent to calling :

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

Upvotes: 12

Related Questions