반짝 응용 프로그램이 데이터베이스에서 일부 데이터를 호출 할 때 .. 달려

Question

내가 3 개 파일 (Retrieve_AOI_Utilization.R, ui.R, server.R) 이하가 의아해

# 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),"%") 
}) 
} 
) 

내가 직접 활용 <에서 활용 값을 검색 할 경우 - 50, 응용 프로그램은 Shiny Server에서 완벽하게 정상적으로 실행됩니다. http://imgur.com/8h24p5h

을하지만 검색 할 경우 : - "이용 < 소스 ('Retrieve_AOI_Utilization.R을')"

내가 이용 값에서 검색 할 때 로컬 호스트에서, 그것이 작동하고 있음을 볼 수 아래 PRINTSCREEN 참조 소스 ('Retrieve_AOI_Utilization.R')의 Utilization 값을 Shiny 서버에 배포하면 아래 그림과 같이 회색 화면이 표시됩니다. http://imgur.com/BcqwMfb

왜 이렇게 되나요? 도와주세요.

Answer 1

첫째, 두 개의 다른 파일이 있습니까 : Retrieve_AOI_Utilization.R 및 RetrieveAOIUtilization.R? 당신은 목적에 맞게 또는 사용하고 있습니까? 후자의 코드 만 표시 했으므로

두 번째로, 반짝이는 서버에서 충돌 할 때 브라우저에서 F12 키를 누르고 "콘솔"탭으로 이동하면 끊어지는 R 코드의 행이 표시 될 수 있습니다. 이 시점부터 디버깅 할 수 있습니다.

편집 당신은 다음과 같은 연결이

: 당신은 당신이 shiny-server를 호스팅하는 곳에서 pfods ODBC 커넥터에 연결할 수 있는지 특정

myconn<- odbcConnect("pfods", uid = "testingt", pwd = "****")

인가를? 동일한 ODBC, 데이터베이스, 사용자 이름 및 암호를 사용해야합니다.