Ostrzeżenia i finally

Ostrzeżenie informuje o problemie, ale nie przerywa działania: funkcja zwraca wartość, a R wyświetla ostrzeżenie na końcu. as.numeric() zgłasza ostrzeżenie dla tekstu, który nie jest liczbą, i zwraca NA:

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

Wynik:

[1] NA
Warning message:
NAs introduced by coercion 

Podobnie jak błędy, ostrzeżenia trafiają do strumienia błędów, więc w Coddy powodują niezaliczenie testu. suppressWarnings() wycisza je, gdy samodzielnie sprawdzasz wynik, a tryCatch(..., warning = ) zamienia ostrzeżenie na wartość:

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

Wynik:

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

warning("message") zgłasza ostrzeżenie z własnego kodu. Obsługa tego ostrzeżenia działa tak samo jak obsługa błędu:

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)

Wynik:

[1] "b is zero, returning Inf"

finally = ... wykonuje się po wyrażeniu i każdym obsługiwaniu błędu, niezależnie od tego, czy wystąpił błąd. Użyj go do działań, które muszą się wykonać zawsze, takich jak wyświetlenie komunikatu na zakończenie:

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

Wynik:

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