If Code To Stop Loop In R