#  Coercing LHS to a list
expr_3$ID<-rownames(expr_3)
 
# OK 
ids<-rownames(expr_3)
expr_4<-cbind(expr_3, ID=ids)