Generare errori con stop()

stop("message") genera un errore: la funzione si interrompe immediatamente, non viene eseguito nulla dopo e R stampa il messaggio. Usalo quando una funzione riceve un input con cui non può lavorare:

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

Output:

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

Il testo dell'errore indica la chiamata che non è riuscita, e Execution halted significa che l'intero script si è fermato: l'ultimo print() non è mai stato eseguito. Un errore viene scritto nel flusso degli errori, non nell'output normale, quindi su Coddy un test non riesce quando viene stampato un qualsiasi errore o avviso.

stopifnot() verifica più condizioni contemporaneamente e genera un errore per la prima che è FALSE. Una condizione con nome usa il proprio nome come messaggio:

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

Output:

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

Costruisci il messaggio a partire dai valori con paste0() o sprintf(), così il lettore capisce cosa è andato storto:

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

Output:

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

Genera errori all'inizio di una funzione, prima che venga svolto qualsiasi lavoro. I controlli che interrompono l'esecuzione in anticipo mantengono semplice il resto della funzione, perché si può presumere che l'input sia valido:

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