Gerando Erros com stop()

Parte da seção Lógica e Fluxo do Journey de R da Coddy. Lição 52 de 64.

stop("message") gera um erro: a função para imediatamente, nada depois dela é executado e R imprime a mensagem. Use-o quando uma função recebe uma entrada com a qual não pode trabalhar:

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

Saída:

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

O texto do erro nomeia a chamada que falhou, e Execution halted significa que o script inteiro foi interrompido: o último print() nunca foi executado. Um erro é gravado no fluxo de erros, não na saída normal, portanto, no Coddy, um teste falha quando qualquer erro ou aviso é impresso.

stopifnot() verifica várias condições de uma só vez e gera um erro para a primeira que for FALSE. Uma condição nomeada usa seu nome como mensagem:

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))

Saída:

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

Crie a mensagem a partir dos valores com paste0() ou sprintf(), para que o leitor veja o que estava errado:

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))

Saída:

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

Gere erros no início de uma função, antes que qualquer trabalho seja realizado. As verificações que interrompem cedo mantêm o restante da função simples, pois ela pode assumir que a entrada é válida:

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

Desafio

Fácil

Complete make_order(item, qty, stock). Gere um erro com stop():

quantity must be at least 1 quando qty for menor que 1
only <stock> left quando qty for maior que stock, como em only 3 left

Caso contrário, retorne ordered <qty> x <item>.

O código fornecido lê o item, a quantidade e o estoque, chama sua função e imprime o resultado ou Error: seguido da mensagem de erro; portanto, nenhum teste exibe o próprio texto de erro do R.

Experimente você mesmo

make_order <- function(item, qty, stock) {
  # Escreva seu código aqui
  ""
}

# Código de entrada/saída fornecido: mantenha-o como está
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")