web-dev-qa-db-fra.com

tryCatch n'attrape pas d'erreur et ignore l'argument d'erreur

J'ai remarqué ci-dessous que l'erreur n'est pas correctement interceptée par tryCatch: elle n'imprime pas la valeur TRUE et ne se rend pas dans le navigateur ...

Serait-ce un bug dans la fonction tryCatch?

library(formattable)
df1 = structure(list(date = c("2018-12-19", "2018-12-19"), 
                     imo = c(9453391, 9771298), 
                     name = c("SFAKIA WAVE", "MEDI KYOTO"), 
                     speed = c(10.3000001907349, 11.6999998092651), 
                     destination = c("ZA DUR", "ZA RCB"), 
                     subsize = c("Post Panamax", "Post Panamax"), 
                     eta = c("2018-12-27 09:00:00", "2018-12-27 09:00:00"), 
                     ToSAF = c(TRUE, TRUE)), 
                .Names = c("date", "imo", "name", "speed", "destination", "subsize", "eta", "ToSAF"), 
                row.names = c(NA, -2L), 
                class = "data.frame")

tryCatch(expr = {
  L = list(formattable::area(row = 3)  ~ formattable::formatter('span', style = x ~ formattable::style(display = 'block', 'border-radius' = '4px', 'padding-right' = '4px')))
  formattable::formattable(df1, L)
  }, 
  error = function(e) {
    print(TRUE)
    browser()
  } 
)
rtry-catchr-base
5
RockScience

Il n'y a pas d'erreur lors de l'évaluation de l'expression formattable::formattable(df1, L). Vous pouvez vérifier en exécutant:

L <- list(formattable::area(row = 3)  ~ formattable::formatter('span', style = x ~ formattable::style(display = 'block', 'border-radius' = '4px', 'padding-right' = '4px')))
test <- try(formattable::formattable(df1, L))
class(test)
[1] "formattable" "data.frame"

En cas d'erreur, la classe devrait être "try-error". L'erreur apparaît lorsque vous essayez de print la sortie de votre expression sur la console. Je pense que tu veux:

L <- list(formattable::area(row = 3)  ~ formattable::formatter('span', style = x ~ formattable::style(display = 'block', 'border-radius' = '4px', 'padding-right' = '4px')))
test <- formattable::formattable(df1, L)
tryCatch(expr = {
  print(test)
  }, 
  error = function(e) {
    print(TRUE)
    browser()
  } 
)
4
pieca

Pourquoi cela se produit:

En effet, la expr que vous passez à tryCatch() ne provoque en réalité aucune erreur. Vous pouvez facilement reproduire en:

result <- tryCatch(expr = {
  L = list(formattable::area(row = 3)  ~ formattable::formatter('span', style = x ~ formattable::style(display = 'block', 'border-radius' = '4px', 'padding-right' = '4px')))
  formattable::formattable(df1, L)
}, 
error = function(e) {
  print(TRUE)
  browser()
} 
)

str(result)

# Classes ‘formattable’ and 'data.frame':   2 obs. of  8 variables:
# $ date       : chr  "2018-12-19" "2018-12-19"
# $ imo        : num  9453391 9771298
# $ name       : chr  "SFAKIA WAVE" "MEDI KYOTO"
# $ speed      : num  10.3 11.7
# ...

Votre erreur est causée par le fait que lors de l'exécution de la tryCatch, R essaiera d'imprimer le résultat, ce qui provoque l'erreur:

print(result)
# Error in `[<-`(`*tmp*`, row, col, value = format(fv)) : 
#  subscript out of bounds

Comment vous pouvez enquêter:

Vous pouvez également enquêter en exécutant traceback() après avoir exécuté votre code et vous verrez d'où vient le problème:

# 14: render_html_matrix.data.frame(x, formatters, digits)
# 13: render_html_matrix(x, formatters, digits)
# 12: format_table(list(date = c("2018-12-19", "2018-12-19"), imo = c(9453391, 
#                                                                     9771298), name = c("SFAKIA WAVE", "MEDI KYOTO"), speed = c(10.3000001907349, 
#                                                                                                                                11.6999998092651), destination = c("ZA DUR", "ZA RCB"), subsize = c("Post Panamax", 
#                                                                                                                                                                                                    "Post Panamax"), eta = c("2018-12-27 09:00:00", "2018-12-27 09:00:00"
#                                                                                                                                                                                                    ), ToSAF = c(TRUE, TRUE)), list(formattable::area(row = 3) ~ 
#                                                                                                                                                                                                                                      formattable::formatter("span", style = x ~ formattable::style(display = "block", 
#                                                                                                                                                                                                                                                                                                    `border-radius` = "4px", `padding-right` = "4px"))), 
#                  format = "html")
# 11: do.call(attrs$formatter, c(list(value), format_args))
# 10: format.formattable(x, format = list(format = "html"))
# 9: format(x, format = list(format = "html"))
# 8: gsub("th align=\"", "th class=\"text-", format(x, format = list(format = "html")), 
#         fixed = TRUE)
# 7: as.htmlwidget.formattable(x)
# 6: as.htmlwidget(x)
# 5: print(as.htmlwidget(x), ...)
# 4: print_formattable.data.frame(x, ...)
# 3: print_formattable(x, ...)
# 2: print.formattable(x)
# 1: function (x, ...) 
#   UseMethod("print")(x)

Comment obtenir le comportement que vous voulez (probablement):

Désormais, la solution à votre problème dépend en réalité de votre comportement attendu. En supposant que vous vouliez obtenir l'erreur que vous avez mentionnée dans la question, incluez simplement print() dans votre expr:

tryCatch(expr = {
  L = list(formattable::area(row = 3)  ~ formattable::formatter('span', style = x ~ formattable::style(display = 'block', 'border-radius' = '4px', 'padding-right' = '4px')))
  print(formattable::formattable(df1, L))
}, 
error = function(e) {
  print(TRUE)
  browser()
} 
)

Maintenant vous obtenez:

# [1] TRUE
# Called from: value[[3L]](cond)
# Browse[1]>
0
Jozef