Evitar que un loop se detenga debido a errores

Usando el paquete {purrr} para realizar iteraciones o loops en nuestro código, vamos a probar tres escenarios ante los que un loop se detendría debido a un error, y formas de solucionarlo.

library(purrr)

números <- list(1, 2, 3, "error", 5)

En el primer escenario, el loop intenta sumar 100 a un vector de números, pero se encuentra con que uno de los números es un texto, por lo tanto la ejecución se detiene con un error:

# loop que se detiene por un error
map(números, \(número) {
  message("sumando ", número)
  número + 100
})

sumando 1

sumando 2

sumando 3

sumando error

Error in `map()`:
ℹ In index: 4.
Caused by error in `número + 100`:
! non-numeric argument to binary operator

En el segundo escenario, usamos try() para que, si ocurre un error, la ejecución no se detenga:

# loop que se ejecuta a pesar del error, 
# pero introduce datos perdidos
map(números, \(número) {
  message("sumando ", número, " + 100")
  try(número + 100) |> as.numeric()
}) |> 
  unlist()

sumando 1 + 100

sumando 2 + 100

sumando 3 + 100

sumando error + 100

Error in número + 100 : non-numeric argument to binary operator

Warning in .f(.x[[i]], ...): NAs introduced by coercion

sumando 5 + 100

[1] 101 102 103  NA 105

En el tercer escenario, usamos tryCatch(), que nos permite realizar una operación distinta cuando se detecta un error. En este caso, enviar un mensaje personalizado, y retornar un valor distinto en caso de error.

# loop que se ejecuta a pesar del error, que emite mensaje, 
# y que retorna algo distinto
map(números, \(número) {
  message("sumando ", número, " + 100")
  tryCatch(número + 100,
           error = \(e) {
             message("!!! upsi dupsi en '", número, "'")
             return(NULL)
           })
}) |> 
  unlist()

sumando 1 + 100

sumando 2 + 100

sumando 3 + 100

sumando error + 100

!!! upsi dupsi en 'error'

sumando 5 + 100

[1] 101 102 103 105