如何捕获Shiny应用中被调用多层函数的错误栈追踪？

这个问题我之前也碰到过——Shiny默认的错误提示确实会把自定义函数的内部调用链给藏起来，排查问题特别费劲。下面给你几个实用的方法，帮你找回完整的栈追踪信息：

方法1：设置Shiny全局错误处理选项（最简单） #

Shiny提供了shiny.error选项，你只需要在启动应用前加上这一行代码，就能让Shiny在错误发生时自动打印完整的栈追踪：

options(shiny.error = traceback)

把它放在你的app代码最开头，或者放在启动应用的run.R文件里，修改后的完整示例如下：

options(shiny.error = traceback)
library(shiny)

f <- function(.x){
  x_new <- as.numeric(.x)
  f_result <- g(x_new)
  return(f_result)
}

g <- function(.y){
  y_new <- min(.y, 1024)
  g_result <- h(y_new)
  return(g_result)
}

h <- function(.z){
  if(.z == 3) stop("Value of 3 not allowed")
  h_result <- .z * 2
  return(h_result)
}

ui <- fluidPage(
  selectInput("n", "N", 1:10),
  plotOutput("plot")
)

server <- function(input, output, session) {
  output$plot <- renderPlot({
    n <- f(input$n)
    plot(head(cars, n))
  })
}

shinyApp(ui, server)

当你选择输入3时，控制台就会输出完整的调用链：

Error in h(.z) : Value of 3 not allowed
6: h(.z)
5: g(x_new)
4: f(input$n)
3: renderPlot({
       n <- f(input$n)
       plot(head(cars, n))
   })
2: func()
1: runApp(list(ui = ui, server = server))

方法2：用tryCatch手动捕获错误 #

如果不想全局设置，你可以在容易出错的代码块外包裹tryCatch，手动触发栈追踪：

修改server部分的代码：

server <- function(input, output, session) {
  output$plot <- renderPlot({
    tryCatch({
      n <- f(input$n)
      plot(head(cars, n))
    }, error = function(e) {
      # 打印错误信息和完整栈追踪
      message("详细错误信息: ", e$message)
      traceback()
      # 重新抛出错误，让Shiny的UI显示错误提示
      stop(e)
    })
  })
}

这种方法更灵活，适合只在特定代码段启用详细追踪的场景。

方法3：用rlang包获取更丰富的栈信息 #

如果你需要更详细的调试信息，可以使用rlang包的trace_back()函数，它能提供比traceback()更清晰的栈结构：

首先安装并加载rlang，然后修改错误处理部分：

library(rlang)

server <- function(input, output, session) {
  output$plot <- renderPlot({
    tryCatch({
      n <- f(input$n)
      plot(head(cars, n))
    }, error = function(e) {
      message("错误栈追踪:")
      print(trace_back())
      stop(e)
    })
  })
}

为什么默认看不到完整栈追踪？ #

Shiny的默认错误处理机制会截断栈追踪，只显示Shiny内部的执行流程（比如renderPlot、func()这些），而用户自定义函数的调用链会被隐藏。上面的方法就是告诉Shiny要保留并打印完整的调用栈。

内容的提问来源于stack exchange，提问作者saltcedar