If within a function, a variable is assigned multiple times, but just the last assignation is read, then the optimizer could keep just the last one.

For example:

foo<-function() {a<-8a<-8818return(a^2)}

Would be equivalent to:

foo<-function() {8a<-8818return(a^2)}