Peringatan dan finally

Peringatan melaporkan masalah tanpa menghentikan proses: fungsi mengembalikan nilai dan R mencetak peringatan di akhir. as.numeric() memberikan peringatan untuk teks yang bukan angka dan mengembalikan NA:

x <- as.numeric("abc")
print(x)

Output:

[1] NA
Warning message:
NAs introduced by coercion 

Seperti error, warning masuk ke aliran error, jadi di Coddy keduanya membuat pengujian gagal. suppressWarnings() membungkamnya saat kamu memeriksa hasilnya sendiri, dan tryCatch(..., warning = ) mengubah warning menjadi nilai:

x <- suppressWarnings(as.numeric("abc"))
print(is.na(x))
r <- tryCatch(as.numeric("abc"), warning = function(w) paste("warned:", conditionMessage(w)))
print(r)

Output:

[1] TRUE
[1] "warned: NAs introduced by coercion"

warning("message") memunculkan peringatan dari kodemu sendiri. Penangan untuk peringatan ini bekerja dengan cara yang sama seperti penangan untuk error:

ratio <- function(a, b) {
  if (b == 0) warning("b is zero, returning Inf")
  a / b
}
r <- tryCatch(ratio(1, 0), warning = function(w) conditionMessage(w))
print(r)

Output:

[1] "b is zero, returning Inf"

finally = ... dijalankan setelah ekspresi dan penangan apa pun, baik terjadi error maupun tidak. Gunakan ini untuk pekerjaan yang harus selalu dilakukan, seperti pesan penutup:

load <- function(x) {
  tryCatch({
    if (x < 0) stop("negative")
    x * 10
  }, error = function(e) NA,
  finally = cat("finished", x, "\n"))
}
print(load(2))
print(load(-1))

Output:

finished 2 
[1] 20
finished -1 
[1] NA