停止执行，但不会在R

Question

我可以用来代替R中的stop（）语句的哪个语句？ 我之所以要替换stop（）语句，是因为它生成错误而不是消息。所以我想要一些我可以停止执行但不能将输出生成为错误的东西。谢谢！

if (nrow(new_data) == 0) {
    message(log_date, " - ","no new_data is found ")
    opt <- options(show.error.messages=FALSE)
    on.exit(options(opt))
    stop()

}
else { # DO SOMETHING ELSE
}

因此，如果运行此脚本后在终端上运行 echo $？，我得到的是“ 1” 而不是“ 0” 。但是我想要一个“ 0”，因为这是预期的输出，而不是真正的错误。