rlang::global_entrace()
options(rlang_backtrace_on_error_report = "full")
f <- function() g()
g <- function() h()
h <- function() stop("!")
f()
## Error in `h()`:
## ! !
## Backtrace:
## x
## 1. \-evaluate (local) f()
## 2. \-evaluate (local) g()
## 3. \-evaluate (local) h()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.