R 识别应用程序中何时发生数据库连接

下面我有一个闪亮的应用程序，它由

app.r

和

global.r

组成。全局文件包括启用数据库连接的代码。此连接是通过大量密码启用的，这些密码只有数据库管理员知道。所以我希望每次用户输入错误的密码时都能显示一条消息。对于这个问题，我只是使用了一个随机密码来创建

if else

语句，但正如我在上面所说的，连接是使用许多不同的密码进行的，因此我不想手动设置所有这些密码，我只想识别连接是否发生

con

app.r

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)
mytitle <- paste0("Life, Death & Statins")
dbHeader <- dashboardHeaderPlus(
  titleWidth = "0px"
)


shinyApp(
  ui = dashboardPagePlus(
    header = dbHeader,
    sidebar = dashboardSidebar(width = "0px"
    ),
    body = dashboardBody(
      
      useShinyjs(),
      tags$script(HTML("$('body').addClass('fixed');")),
      
      tags$head(tags$style(".skin-blue .main-header .logo { padding: 0px;}")),
      passwordInput("pwd",label = "",value = "",width = "100%" ),
      actionButton('button', "Continue"),
      uiOutput("error")
    )
    
    
  ),
  server<-shinyServer(function(input, output,session) { 
    hide(selector = "body > div > header > nav > a")
    observeEvent(input$button, {
      
      
      if(input$pwd==""){
        return(NULL)
      }
      else if(input$pwd=="qh2gt1"){
        return(NULL)
      }
      else{
        output$error<-renderUI({
          "Please re-enter database browser password"
        })
      }
      
      
      
    })
  }
  )
)

library(odbc) 
con<- dbConnect(odbc(),
                driver   = "SQL Server",
                database = "databasename",
                server   = svr,
                port     = 1433,
                UID      = "uid",
                PWD      = input$pwd)

库（闪亮）
图书馆（shinydashboard）
图书馆（shinydashboardPlus）
图书馆（shinyjs）
mytitle您可以将
dbConnect
封装在
try
中：

con <- try( dbConnect( odbc(),
                       driver   = "SQL Server",
                       database = "databasename",
                       server   = svr,
                       port     = 1433,
                       UID      = "uid",
                       PWD      = input$pwd))

if( class(con) != "try-error" ) 
  # OK code
else
  # Error code