Capturando com tryCatch()

Parte da seção Lógica e Fluxo do Journey de R da Coddy. Lição 53 de 64.

tryCatch(expr, error = function(e) ...) executa expr. Se ele gerar um erro, o manipulador será executado em seu lugar e seu valor se tornará o resultado, e o script continuará:

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

Saída:

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

O manipulador recebe o erro como e, e conditionMessage(e) retorna o texto da mensagem:

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

Saída:

[1] "Problem: file not found"

Envolva apenas a chamada que pode falhar e capture o erro onde você possa fazer algo útil, como fornecer um valor padrão ou uma mensagem para o usuário:

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

Saída:

[1] 42
[1] -1

Em um loop, tryCatch() permite que um item inválido falhe enquanto os outros continuam sendo processados:

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

Saída:

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

Desafio

Fácil

Complete safe_divide(a, b). Use tryCatch(): dentro dele, gere o erro division by zero quando b for 0 e, caso contrário, calcule a / b. O manipulador retorna Error: seguido pela mensagem. Retorne o resultado arredondado para duas casas decimais como texto, 3.33, ou o texto do erro.

O código fornecido lê pares de números, como 10/3, separados por vírgulas, e imprime o resultado de cada par em sua própria linha.

Experimente você mesmo

safe_divide <- function(a, b) {
  # Escreva seu código aqui
  ""
}

# Código de entrada/saída fornecido: mantenha-o como está
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 = "")
}