R devel - Feb 2022 - Attributes of a vector element?

On 22/02/2022 1:45 p.m., Ivan Krylov wrote:
> On Tue, 22 Feb 2022 13:29:15 -0500
> J C Nash <profjcnash at gmail.com> wrote:
> 
>> pp<-c(1,2)
>> attr(pp[1], "trial")<-"first"
> 
> I don't have a solid proof for this with a link to the R Language
> Definition, but my understanding of the attributes is that they belong
> to the whole vector (and that elements of a vector don't usually exist
> as separate entities in R). Maybe this explains why the attribute of a
> temporary value is lost in this assignment.
That's true for atomic vectors.  lists are also vectors, and they can 
accept attributes on the list as a whole or on the individual elements, 
but it would be done using

    attr(pp[[1]], "trial")<-"first"

(as I just noticed you found below).

I suspect it's an oversight that attr(pp[1], "trial") <-
"first" didn't
trigger an error.  It says to assign the attribute on the subvector 
containing just the first element, but in general such things wouldn't 
be inherited by the full vector.
> 
>> pl<-list(one=1, two=2)
>> attr(pl[1],"trial")<- "lfirst"
> 
> However, this could be made to work, if attributes were assigned on the
> list element instead of the list slice:
> 
> attr(pl[[1]],"trial")<- "lfirst"
> attr(pl[[1]],"trial")
> # [1] "lfirst"
> 
> Same goes for data.frame columns:
> 
> str(data.frame(x = 1:10, y = structure(1:10, attr = 'val')))
> # 'data.frame':   10 obs. of  2 variables:
> #  $ x: int  1 2 3 4 5 6 7 8 9 10
> #  $ y: atomic  1 2 3 4 5 6 7 8 9 10
> #   ..- attr(*, "attr")= chr "val"   # <-- attribute
preserved
> 
> If you need to tag rows of a data frame, your best bet would likely be
> to assign a vector as an attribute of the data frame itself.
> 
Yes, you could do

   attr(pp, "trials")[1] <- "someval"

if you already had a "trials" attribute on pp.

Duncan Murdoch

Thanks for the responses. Looks like I can make something work if I pay
appropriate
attention to detail.

Duncan: Should I try to submit a bug report for the missed error message? If so,
do you
have suggestions for keywords?

Best, JN


On 2022-02-22 13:52, Duncan Murdoch wrote:
> On 22/02/2022 1:45 p.m., Ivan Krylov wrote:
>> On Tue, 22 Feb 2022 13:29:15 -0500
>> J C Nash <profjcnash at gmail.com> wrote:
>>
>>> pp<-c(1,2)
>>> attr(pp[1], "trial")<-"first"
>>
>> I don't have a solid proof for this with a link to the R Language
>> Definition, but my understanding of the attributes is that they belong
>> to the whole vector (and that elements of a vector don't usually
exist
>> as separate entities in R). Maybe this explains why the attribute of a
>> temporary value is lost in this assignment.
> 
> That's true for atomic vectors.? lists are also vectors, and they can
accept attributes on the list as a whole or on the
> individual elements, but it would be done using
> 
>  ?? attr(pp[[1]], "trial")<-"first"
> 
> (as I just noticed you found below).
> 
> I suspect it's an oversight that attr(pp[1], "trial") <-
"first" didn't trigger an error.? It says to assign the
> attribute on the subvector containing just the first element, but in
general such things wouldn't be inherited by the
> full vector.
> 
>>
>>> pl<-list(one=1, two=2)
>>> attr(pl[1],"trial")<- "lfirst"
>>
>> However, this could be made to work, if attributes were assigned on the
>> list element instead of the list slice:
>>
>> attr(pl[[1]],"trial")<- "lfirst"
>> attr(pl[[1]],"trial")
>> # [1] "lfirst"
>>
>> Same goes for data.frame columns:
>>
>> str(data.frame(x = 1:10, y = structure(1:10, attr = 'val')))
>> # 'data.frame':?? 10 obs. of? 2 variables:
>> #? $ x: int? 1 2 3 4 5 6 7 8 9 10
>> #? $ y: atomic? 1 2 3 4 5 6 7 8 9 10
>> #?? ..- attr(*, "attr")= chr "val"?? # <--
attribute preserved
>>
>> If you need to tag rows of a data frame, your best bet would likely be
>> to assign a vector as an attribute of the data frame itself.
>>
> 
> Yes, you could do
> 
>  ? attr(pp, "trials")[1] <- "someval"
> 
> if you already had a "trials" attribute on pp.
> 
> Duncan Murdoch