如果希望程序产生错误，则可以使用 stopifnot()函数:

You could use the stopifnot() function if you want the program to produce an error:

foo <- function(x) {
    stopifnot(x > 500)
    # rest of program
}