Создать проверку ошибок для функции на основе числового типа данных?

Question

Я пытаюсь написать функцию, которая может показывать конкретное сообщение об ошибке, когда я делаю ошибку. Кто-нибудь знает как это сделать? Любая помощь будет принята с благодарностью.

Например

newFunction <- function(a) {
for(i in 1:a) {
a <- i^2
print(a) 
}}

newFunction('five')

Я хотел бы получить сообщение об ошибке, например «Стоп! Переменная не числовая»

Как мне это сделать?

Answer 1

Вы можете проверить, является ли ввод числовым, с помощью is.numeric() и использовать stop(), если оно не

, например,

if(!is.numeric(a)) {
  stop("Stop! Variable is non-numerical")
}