Используйте stop
и оператор if
:
if(length(unique(nchar(check))) != 1)
stop("Error: Elements of your input vector do not have the same length!")
Просто помните, что stopifnot
удобен для определения отрицательного значения, поэтому ваше состояние в if
должно быть отрицаниемвашего состояния остановки.
Вот как выглядит сообщение об ошибке:
> check = c("x", "xx", "xxx")
> if(length(unique(nchar(check))) != 1)
+ stop("Error: Elements of your input vector do not have the same length!")
Error in eval(expr, envir, enclos) :
Error: Elements of your input vector do not have the same length!