Shiny 从数据库调用某些数据时，应用程序挂起。。困惑的

我有以下3个文件（Retrieve\u AOI\u ustilization.R、ui.R、server.R）

#检索#AOI#u利用率。R
图书馆（lubridate）
图书馆（RODBC）
myconn首先，您是否有两个不同的文件：
Retrieve\u AOI\u usilization.R
和
retrieveaoi usilization.R
？你是故意用这两种方法，还是应该用一种？因为您只显示了后一个的代码

其次，当浏览器在闪亮的服务器上崩溃时，如果您在浏览器上按F12键，并转到“控制台”选项卡，则可能会在那里显示中断的R代码行。您可以从这一点进行调试

编辑

您有以下连接：

myconn只有一个Retrieve\u AOI\u use.R文件。我已经纠正了我的问题。我的输入错误，抱歉。只有一个Retrieve\u AOI\u Utilization.R文件。我已经纠正了我的问题。我的打字错误，抱歉。当浏览器崩溃时，我按照您的步骤在浏览器上按F12键，但控制台显示为空白，从“是”中可以看出，问题是internet上的数据库连接。。在localhost中，一切正常…我使用MySQL尝试了另一个，并“授予.to‘test’@“%”上的所有权限，以‘PASSWORD’标识。。它也有同样的问题…如果通过internet，则需要设置ODBC连接器以使用主机服务器的IP地址。请参阅如何在odbcConnect（）中使用IP。
# Retrieve_AOI_Utilization.R
library(lubridate)
library(RODBC)
myconn<- odbcConnect("pfods", uid = "testingt", pwd = "****")

systemtype <- '0043-004'
startDate <- "08/12/2014" # DD/MM/YYYY format
endDate <- "11/12/2014" # DD/MM/YYYY format
TimeDiff <- as.Date(as.character(endDate), format="%d/%m/%Y")- as.Date(as.character(startDate),   format="%d/%m/%Y")
TimeDiff <-as.data.frame(TimeDiff)
nDays <- TimeDiff$TimeDiff[[1]]

conveyortime <- 25
querytest <- paste("SELECT distinct MONO, LASTUPDATE, SYSTEMTYPE, TESTTIME 
FROM PFODS.PPLPRODUCTAOI 
WHERE SYSTEMTYPE = '",systemtype,"'
AND LASTUPDATE >= todate('",startDate,"','DD/MM/YYYY')
AND LASTUPDATE <= todate('",endDate,"','DD/MM/YYYY') 
AND TESTTIME IS NOT NULL
ORDER BY LASTUPDATE ASC, MONO" , sep="") 
test <- sqlQuery(myconn, query_test)

testtime <- test$TESTTIME
HourMinSec <-strftime(testtime, format="%H:%M:%S")
TotalTimeInSec <- periodtoseconds(hms(HourMinSec)) # convert to total seconds
Utilization = (sum(TotalTimeInSec) + nrow(test)conveyor_time)/ (nDays24*3600) *100

# ui.R
shinyUI(fluidPage(
titlePanel("TestSystem Utilization for AOI Machines in SMT."),

sidebarLayout(
sidebarPanel(
helpText("Select a TestSystem and Date Range and press Submit button to retrieve its Utilization      value."),

selectInput("var", 
          label = "Select a TestSystem",
          choices = list("0043-001","0043-002","0043-003","0043-004","0043-A067-001","0043-A067-  003"),
          selected = "0043-001")
 ),

mainPanel(
  textOutput("text1")
 )
)
))

# server.R

Utilization <- source('Retrieve_AOI_Utilization.R')

shinyServer(
function(input, output) {

#Utilization <- 50
specify_decimal <- function(x, k) format(round(x, k), nsmall=k)
output$text1 <- renderText({ 
   paste("TestSystem", input$var, "has Utilization value of", specify_decimal(Utilization$value, 2),"%")
 })
}
)