Memory leaks in R when using a ~ operator

Question

I am following the examples from http://adv-r.had.co.nz/memory.html. In one of the examples a function of the following form is proposed (after loading the package pryr<