R trycatch() 与 err 和 warn 处理程序就位，但 Shiny 仍然崩溃？

重现：

#app.R
library(shiny)
library(RODBC)
savefunc <- function() {
      conn <- odbcConnect(...) #put in a conn string u know works
      df = data.frame(testing=c("testing"))
      columnTypes = list(testing="varchar(128)")
      tryCatch(
        {
          sqlSave(conn, dat=df, tablename ="...", #put in a pre-existing tbl
            rownames = FALSE, colnames = FALSE, append=TRUE, varTypes=columnTypes)
        },
        err=function(errorCondition) {
          cat("in err handler")
          message(errorCondition)
        },
        warn=function(warningCondition) {
           cat("in warn handler")
          message(warningCondition)
        },
        finally={
          odbcClose(conn)
        }
      )
    }

server <- function(input, output) {
  observeEvent(input$doBtn, {
    savefunc()
  })
}

ui <- shinyUI(fluidPage(
  mainPanel(
    actionButton("doBtn", "Do something")
  )
))

shinyApp(ui = ui, server = server)

错误没有被捕获......虽然 R 似乎仍然在运行（没有崩溃），但当你查看 Shiny 应用程序/UI 时，你会发现它已经死了。控制台中的错误类似于：

Warning: Unhandled error in observer: unable to append to table xxx
observeEvent(input$doBtn)

（根据上面的例子，你可能会得到一些稍微不同的东西）但重点是，错误现在已经以闪亮的方式传播给观察者。有没有办法让闪亮的应用程序本身也进行故障转移？或者抑制观察者内部的误差？

我刚刚有过非常相似的经历（未捕获的错误），事实上，只需更换err=function(e) with error=function(e)（我想这对于warn and warning).

EDIT :

我实际上只是尝试使用你的代码，对我来说，当我这样做时它会起作用：

savefunc <- function() {
    tryCatch({
        conn <- odbcConnect(...)
        df = data.frame(testing=c("testing"))
        columnTypes = list(testing="varchar(128)")
        tryCatch({
            sqlSave(conn, dat=df, tablename="...", rownames=FALSE, colnames=FALSE, append=TRUE, varTypes=columnTypes)
        }, error=function(e) {
            cat(paste("in err handler\n"),e)
        }, warning=function(w) {
            cat(paste("in warn handler\n"),w)
        }, finally={
            odbcClose(conn)
        })
    }, error=function(e) {
        cat(paste("in err handler2\n"),e)
    }, warning=function(w) {
        cat(paste("in warn handler2\n"),w)
    })
}

它显然非常脏，我不太确定它为什么起作用。我刚刚摆脱了message()调用并封装了两个trycatch()。 也许值得一试。