閃亮

Question

背景

在tryCatch改變反應值在我的應用我想允許用戶下載SQL數據庫的快照。由於SQL連接可能存在一些錯誤，因此我想使用tryCatch構造。如果出現錯誤，我想向用戶顯示一條有意義的錯誤消息。爲此，我創建了一個，其值設置在錯誤處理程序位中。我發現錯誤處理程序中的值已更改，但renderPrint函數未觸發。任何想法我必須改變？

代碼

library(shiny) 

ui <- fluidPage(downloadButton("dat"), verbatimTextOutput("debug")) 

server <- function(input, output) { 
    errMsg <- reactiveVal() 
    output$dat <- downloadHandler(filename = "test.xlsx", 
           content = function(nF) { 
            tryCatch({ 
             write.csv(mtcars, nF) 
             stop("simulate SQL error") 
            }, error = function(err) { 
             print("Error Handler") 
             errMsg("Error") 
            }) 

           }) 
    output$debug <- renderPrint(errMsg()) 

} 

shinyApp(ui, server) 

Answer 1

我不知道爲什麼，但tryCatch似乎並不觸發元素無效。但是你可以手動完成。改變這樣的陳述似乎工作：

tryCatch({ 
    write.csv(mtcars, nF) 
    stop("simulate SQL error") 
}, error = function(err) { 
    print("Error Handler") 
    errMsg("Error") 
}, 
finally = invalidateLater(1))