Losing custom attributes

Hi Eric,
      Thanks for the reply.
Actually, I am looking for a way so that my custom attributes are  
not lost
after the row insert operation. It can be rbind() or some other way.

Regards,
SG

On 23 November 2011 18:07, Eric Lecoutre <ericlecoutre at gmail.com>  
wrote:

I guess rbind takes attributes from the first dataframe.
I tried to rbind with mydata[NULL,,drop=FALSE] but rbind help  
states that
empy data frames are dropped from rbind.
So that as a workaround, I have:


mydata*<-* rbind
(mydata[1,,drop=FALSE],newrow, mydata)[-1,]

Eric


On 23 November 2011 13:20, Smart Guy <smartguy3k at gmail.com> wrote:

Hi All,
         I was adding a new row of data to my data frame using  
rbind(). I
was surprised to see that after adding new row, I lost my data  
frame level
attibute as well as  col level attribute. Please help me to insert  
a new
row at frist or middle position so that my custom attribute is not  
lost.

Here is what I did.

age<-c(15,20,18)
weight<-c(40,42,30)

### creating my data frame ####
mydata <- data.frame(age,weight)

### creating data frame level attribute ####
attr(mydata,"myattr")<-c("myinfo")

### creating col level attribute for 'age' column  ###
attr(mydata$age,"mycolattr")<-c("mycolinfo")

#### Checking attributes  ###
attributes(mydata)
attributes(mydata$age)

### creating new row  #####
newrow <- data.frame(age=16, weight= 42)

#### Inserting newrow as first row to my data frame ####
mydata<- rbind(newrow, mydata)

#### Checking attributes again ###  I lost my custom attributes
attributes(mydata$age)
attributes(mydata)


Thanks in advance,


--
SG

      [[alternative HTML version deleted]]

--
Eric Lecoutre
Consultant - Business & Decision
Business Intelligence & Customer Intelligence

-- 
SG

	[[alternative HTML version deleted]]