update of packages

This commit is contained in:
2023-11-04 19:26:41 +01:00
parent e162a12b58
commit 3b54a3236d
726 changed files with 297673 additions and 34585 deletions

View File

@@ -235,9 +235,18 @@ if(.ess.Rversion < "1.8")
invokeRestart("browser")
}
out <- withCallingHandlers(
interrupt = restart,
withVisible(expr)
## Should be an exiting handler to be able to catch
## stack overflow errors
rethrow <- function(cnd) {
stop('ESSR::ERROR \"', conditionMessage(cnd), '\"')
}
out <- tryCatch(
error = rethrow,
withCallingHandlers(
interrupt = restart,
withVisible(expr)
)
)
## Print result manually because we can't rely on auto-print