Saltar al contenido

Cómo escribir trycatch en R

Dulce, parte de este gran equipo, nos hizo el favor de redactar este artículo ya que controla a la perfección este tema.

Solución:

Pues bien: bienvenido al mundo R 😉

Aquí tienes

Configurando el código

urls <- c(
    "http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html",
    "http://en.wikipedia.org/wiki/Xz",
    "xxxxx"
)
readUrl <- function(url) 
    out <- tryCatch(
        
            # Just to highlight: if you want to use more than one 
            # R expression in the "try" part then you'll have to 
            # use curly brackets.
            # 'tryCatch()' will return the last evaluated expression 
            # in case the "try" part was completed successfully

            message("This is the 'try' part")

            readLines(con=url, warn=FALSE) 
            # The return value of `readLines()` is the actual value 
            # that will be returned in case there is no condition 
            # (e.g. warning or error). 
            # You don't need to state the return value via `return()` as code 
            # in the "try" part is not wrapped inside a function (unlike that
            # for the condition handlers for warnings and error below)
        ,
        error=function(cond) 
            message(paste("URL does not seem to exist:", url))
            message("Here's the original error message:")
            message(cond)
            # Choose a return value in case of error
            return(NA)
        ,
        warning=function(cond) 
            message(paste("URL caused a warning:", url))
            message("Here's the original warning message:")
            message(cond)
            # Choose a return value in case of warning
            return(NULL)
        ,
        finally=
        # NOTE:
        # Here goes everything that should be executed at the end,
        # regardless of success or error.
        # If you want more than one expression to be executed, then you 
        # need to wrap them in curly brackets (...); otherwise you could
        # just have written 'finally=' 
            message(paste("Processed URL:", url))
            message("Some other message at the end")
        
    )    
    return(out)

Aplicando el código

> y <- lapply(urls, readUrl)
Processed URL: http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html
Some other message at the end
Processed URL: http://en.wikipedia.org/wiki/Xz
Some other message at the end
URL does not seem to exist: xxxxx
Here's the original error message:
cannot open the connection
Processed URL: xxxxx
Some other message at the end
Warning message:
In file(con, "r") : cannot open file 'xxxxx': No such file or directory

Investigando el resultado

> head(y[[1]])
[1] ""      
[2] "R: Functions to Manipulate Connections"      
[3] ""
[4] ""             
[5] ""                                                          
[6] ""    

> length(y)
[1] 3

> y[[3]]
[1] NA

Observaciones adicionales

trata de atraparlo

tryCatch devuelve el valor asociado a la ejecución expr a menos que haya un error o una advertencia. En este caso, valores de retorno específicos (ver return(NA) arriba) se puede especificar proporcionando una función de controlador respectiva (ver argumentos error y warning en ?tryCatch). Estas pueden ser funciones que ya existen, pero también puede definirlas dentro de tryCatch() (como hice arriba).

Las implicaciones de elegir valores de retorno específicos de las funciones del controlador

Como hemos especificado que NA debe devolverse en caso de error, el tercer elemento en y es NA. Si hubiéramos elegido NULL para ser el valor de retorno, la longitud de y hubiera sido 2 en lugar de 3 como lapply() simplemente "ignorará" los valores de retorno que son NULL. También tenga en cuenta que si no especifica un explícito valor de retorno a través de return(), las funciones del controlador volverán NULL (es decir, en caso de error o condición de advertencia).

Mensaje de advertencia "no deseado"

Como warn=FALSE no parece tener ningún efecto, una forma alternativa de suprimir la advertencia (que en este caso no es realmente de interés) es usar

suppressWarnings(readLines(con=url))

en lugar de

readLines(con=url, warn=FALSE)

Múltiples expresiones

Tenga en cuenta que también puede colocar varias expresiones en la "parte de expresiones reales" (argumento expr de tryCatch()) si los envuelve entre llaves (como ilustré en la finally parte).

R usa funciones para implementar el bloque try-catch:

La sintaxis se parece a esto:

result = tryCatch(
    expr
, warning = function(warning_condition) 
    warning-handler-code
, error = function(error_condition) 
    error-handler-code
, finally=
    cleanup-code
)

En tryCatch () hay dos 'condiciones' que se pueden manejar: 'advertencias' y 'errores'. Lo importante a comprender al escribir cada bloque de código es el estado de ejecución y el alcance. @fuente

tryCatch tiene una estructura de sintaxis ligeramente compleja. Sin embargo, una vez que comprendamos las 4 partes que constituyen una llamada completa a tryCatch como se muestra a continuación, será fácil de recordar:

expr: [Required] Código (s) R a evaluar

error : [Optional] ¿Qué debería ejecutarse si se produce un error al evaluar los códigos en expr?

advertencia : [Optional] ¿Qué debería ejecutarse si se produce una advertencia al evaluar los códigos en expr?

finalmente : [Optional] ¿Qué debería ejecutarse justo antes de salir de la llamada tryCatch, independientemente de si expr se ejecutó correctamente, con un error o con una advertencia?

tryCatch(
    expr = 
        # Your code...
        # goes here...
        # ...
    ,
    error = function(e) 
        # (Optional)
        # Do this if an error is caught...
    ,
    warning = function(w)
        # (Optional)
        # Do this if an warning is caught...
    ,
    finally = 
        # (Optional)
        # Do this at the end before quitting the tryCatch structure...
    
)

Por lo tanto, un ejemplo de juguete para calcular el logaritmo de un valor podría verse así:

log_calculator <- function(x)
    tryCatch(
        expr = 
            message(log(x))
            message("Successfully executed the log(x) call.")
        ,
        error = function(e)
            message('Caught an error!')
            print(e)
        ,
        warning = function(w)
            message('Caught an warning!')
            print(w)
        ,
        finally = 
            message('All done, quitting.')
        
    )    

Ahora, ejecutando tres casos:

Un caso valido

log_calculator(10)
# 2.30258509299405
# Successfully executed the log(x) call.
# All done, quitting.

Un caso de "advertencia"

log_calculator(-10)
# Caught an warning!
# 
# All done, quitting.

Un caso de "error"

log_calculator("log_me")
# Caught an error!
# 
# All done, quitting.

He escrito sobre algunos casos de uso útiles que utilizo con regularidad. Encuentre más detalles aquí: https://rsangole.netlify.com/post/try-catch/

Espero que esto sea de ayuda.

Si te ha resultado útil nuestro post, sería de mucha ayuda si lo compartieras con otros desarrolladores y nos ayudes a extender nuestra información.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *