Memunculkan error dengan stop()

stop("message") memunculkan error: fungsi langsung berhenti, tidak ada kode setelahnya yang dijalankan, dan R mencetak pesan tersebut. Gunakan fungsi ini saat sebuah fungsi menerima input yang tidak dapat digunakan:

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

Teks error menyebut pemanggilan yang gagal, dan Execution halted berarti seluruh skrip berhenti: print() terakhir tidak pernah dijalankan. Error ditulis ke aliran error, bukan ke output normal, jadi di Coddy sebuah tes gagal ketika error atau peringatan apa pun dicetak.

stopifnot() memeriksa beberapa kondisi sekaligus dan memunculkan error untuk kondisi pertama yang bernilai FALSE. Kondisi bernama menggunakan namanya sebagai pesan:

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

Susun pesan dari nilai-nilai dengan paste0() atau sprintf(), agar pembaca tahu apa yang salah:

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

Timbulkan error di awal fungsi, sebelum pekerjaan apa pun dilakukan. Pemeriksaan yang berhenti lebih awal membuat bagian fungsi lainnya tetap sederhana, karena bagian tersebut dapat mengasumsikan bahwa input valid:

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