Stop copy-on-modify behavior in R in a while loop

Question

I\'m doing a rejection sampling on R that needs to be as efficient as possible. Here is my raw code :

N <- 1e8
x <- rexp(N, 3) + rexp(N, 3)
todo <- r