Nothing
library(winch)
foo <- function() {
purrr::map(1, ~ bar())
}
bar <- function() {
winch_call(baz)
}
baz <- function() {
winch_add_trace_back()
}
if (winch_available() && requireNamespace("purrr")) {
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.