Intercepter avec tryCatch()

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 53 sur 64.

tryCatch(expr, error = function(e) ...) exécute expr. Si une erreur est générée, le gestionnaire s’exécute à la place et sa valeur devient le résultat, puis le script continue :

safe_sqrt <- function(x) {
  tryCatch(sqrt(x), error = function(e) NA)
}
print(safe_sqrt(16))
print(safe_sqrt("a"))
print("still running")

Sortie :

[1] 4
[1] NA
[1] "still running"

Le gestionnaire reçoit l’erreur sous la forme e, et conditionMessage(e) renvoie le texte de son message :

result <- tryCatch(
  stop("file not found"),
  error = function(e) paste("Problem:", conditionMessage(e))
)
print(result)

Sortie :

[1] "Problem: file not found"

Entourez uniquement l’appel qui peut échouer et interceptez l’erreur là où vous pouvez faire quelque chose d’utile, comme fournir une valeur par défaut ou afficher un message à l’utilisateur :

to_number <- function(s) {
  tryCatch({
    if (s == "") stop("empty input")
    as.integer(s)
  }, error = function(e) -1L)
}
print(to_number("42"))
print(to_number(""))

Résultat :

[1] 42
[1] -1

Dans une boucle, tryCatch() permet à un élément incorrect d’échouer tandis que les autres sont toujours traités :

inputs <- list(4, "x", 9)
for (v in inputs) {
  r <- tryCatch(sqrt(v), error = function(e) "not a number")
  cat(format(v), "->", r, "\n")
}

Sortie :

4 -> 2 
x -> not a number 
9 -> 3

Défi

Facile

Complétez safe_divide(a, b). Utilisez tryCatch() : à l’intérieur, déclenchez l’erreur division by zero lorsque b vaut 0 et calculez sinon a / b. Le gestionnaire renvoie Error: suivi du message. Renvoyez le résultat arrondi à deux décimales sous forme de texte, 3.33, ou le texte de l’erreur.

Le code fourni lit des paires de nombres telles que 10/3, séparées par des virgules, et affiche le résultat de chaque paire sur sa propre ligne.

Essayez vous-même

safe_divide <- function(a, b) {
  # Écrivez votre code ici
  ""
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
for (pair in strsplit(input[1], ",")[[1]]) {
  p <- as.numeric(strsplit(pair, "/")[[1]])
  cat(safe_divide(p[1], p[2]), "\n", sep = "")
}