[r] How to name variables on the fly?