Avvisi e finally

Un avviso segnala un problema senza interrompere l'esecuzione: la funzione restituisce un valore e R stampa l'avviso alla fine. as.numeric() genera un avviso per il testo che non è un numero e restituisce NA:

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

Output:

[1] NA
Warning message:
NAs introduced by coercion 

Come gli errori, gli avvisi vengono inviati al flusso degli errori, quindi su Coddy fanno fallire un test. suppressWarnings() li silenzia quando controlli tu il risultato, e tryCatch(..., warning = ) trasforma un avviso in un valore:

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") genera un avviso dal tuo codice. Un gestore per questo funziona come uno per un errore:

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 = ... viene eseguito dopo l’espressione e qualsiasi gestore, indipendentemente dal fatto che si sia verificato o meno un errore. Usalo per le operazioni che devono avvenire sempre, ad esempio un messaggio di chiusura:

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