R блестящий разбился даже после trycatch ()

Question

Ниже приведена часть кода моего сервера. На самом деле есть ошибка в SQL для некоторых условий. Поэтому, когда я выполняю в R вызов SQL, блестящий R падает. Поэтому я попытался поставить trycatch(). Даже тогда приложение вылетает, но я вижу уведомления, когда приложение вылетает. Пожалуйста, помогите

if(input$ID != "" && !is.null(input$Date)){

      # to get data from SQL
      tryCatch({
      # to get data from SQL
      sql <- paste0("SELECT * FROM [SSS].[AAA].[CCC]")
      df1 <- sqlQuery(db, sql)   # db is already declared
        },

      error = function(err){
        showNotification(paste0(err), type = 'err')
      })

Answer 1

Вы можете попытаться сделать df1 <- sqlQuery(db, sql, errors=FALSE), который должен вернуть -1; Затем вы можете проверить df1 != -1, прежде чем продолжить в своем коде.

edit: Вы можете сделать что-то вроде:

myReactiveFun <- reactive({
  shiny::req(input$Date)
  sql <- paste0("SELECT * FROM [SSS].[AAA].[CCC]")
  df1 <- sqlQuery(db, sql, errors=FALSE) 
  shiny::validate(shiny::need( df1 != -1, "need valid SQL query result...")

})