r-识别闪亮应用程序中何时发生数据库连接

Question

我有一个闪亮的应用程序，它由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"
})
}



})
}
)
)

全局.r

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

Answer 1

您可以将dbConnect封装在try:中

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

然后检查其class:

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