How to break out of a for loop in r