/usr/share/doc/r-cran-evaluate/tests/testthat/try.r

g <- function() f("error")
f <- function(x) stop(paste0("Obscure ", x))

try(g())

Generated by dwww version 1.15 on Mon Jun 24 14:42:03 CEST 2024.