在R中中断循环的函数

Question

如果满足特定条件，是否有一种（不错的）方式编写一个可以中断for循环的函数 即：

f=function(x){
if (x==3){'break loop'}
}
for (x in 1:10){
print(x)
f(x)
} 

这样就可以给

[1] 1
[1] 2
[1] 3

作为输出？ 注意：从函数返回一个值，然后在条件不被视为“ nice”的情况下中断。