R Trick - reading data faster