Nothing
library(winch)
foo <- function() {
winch_call(function() bar())
}
bar <- function() {
stop("oops")
}
if (winch_available() && requireNamespace("rlang")) {
options(
error = rlang::entrace,
rlang_backtrace_on_error = "full",
rlang_trace_use_winch = TRUE
)
tryCatch(foo(), error = identity)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.