Генерация ошибок с помощью stop()

Часть раздела Логика и потоки выполнения путешествия по R на Coddy. Урок 52 из 64.

stop("message") вызывает ошибку: функция немедленно останавливается, всё, что находится после неё, не выполняется, а R выводит сообщение. Используй её, когда функция получает входные данные, с которыми она не может работать:

check_qty <- function(q) {
  if (q <= 0) stop("quantity must be positive")
  q
}
print(check_qty(3))
print(check_qty(-1))
print("never printed")

Вывод:

[1] 3
Error in check_qty(-1) : quantity must be positive
Calls: print -> check_qty
Execution halted

Текст ошибки указывает вызов, который завершился с ошибкой, а Execution halted означает, что весь скрипт остановился: последний вызов print() так и не был выполнен. Ошибка записывается в поток ошибок, а не в обычный вывод, поэтому в Coddy тест завершается неудачно, если выводится какая-либо ошибка или предупреждение.

stopifnot() проверяет несколько условий одновременно и вызывает ошибку для первого условия, которое равно FALSE. Именованное условие использует своё имя в качестве сообщения:

area <- function(w, h) {
  stopifnot("width must be positive" = w > 0, "height must be positive" = h > 0)
  w * h
}
print(area(2, 3))
print(area(2, -1))

Вывод:

[1] 6
Error in area(2, -1) : height must be positive
Calls: print -> area -> stopifnot
Execution halted

Составьте сообщение из значений с помощью paste0() или sprintf(), чтобы читатель понял, что пошло не так:

get_item <- function(items, i) {
  if (i > length(items)) stop(sprintf("index %d is past the end (%d items)", i, length(items)))
  items[i]
}
print(get_item(c("a", "b"), 5))

Вывод:

Error in get_item(c("a", "b"), 5) : index 5 is past the end (2 items)
Calls: print -> get_item
Execution halted

Вызывайте ошибки в начале функции, прежде чем будет выполнена какая-либо работа. Проверки, которые сразу останавливают выполнение, упрощают остальную часть функции, поскольку она может предполагать, что входные данные корректны:

withdraw <- function(balance, amount) {
  if (amount <= 0) stop("amount must be positive")
  if (amount > balance) stop("insufficient funds")
  balance - amount
}

Задание

Легко

Дополните make_order(item, qty, stock). Вызывайте ошибку с помощью stop():

quantity must be at least 1, когда qty меньше 1
only <stock> left, когда qty больше stock, например only 3 left

В противном случае верните ordered <qty> x <item>.

Предоставленный код считывает товар, количество и запас, вызывает вашу функцию и выводит либо её результат, либо Error: , за которым следует сообщение об ошибке, поэтому ни один тест не выводит собственный текст ошибки R.

Попробуйте сами

make_order <- function(item, qty, stock) {
  # Напишите ваш код здесь
  ""
}

# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
result <- tryCatch(make_order(input[1], as.numeric(input[2]), as.numeric(input[3])),
                   error = function(e) paste("Error:", conditionMessage(e)))
cat(result, sep = "\n")