Ошибка RODBC с блестящими приложениями

Question

Я смог развернуть свое приложение с помощью shinyapps, но получаю сообщение об ошибке:

ERROR: first argument is not an open RODBC channel

Мое приложение содержит 3 файла:

ui.R
server.R
plots.R

plots.R:

library(RODBC)
library(ggplot2)

queryfunction <- function(channel) {
    myconn <- odbcConnect(dsn = "SQLServer")   
    query = "my query"
   df <- sqlQuery(channel = myconn, query = query)
   odbcClose(myconn)
   return(df)
    }

plotfunction <- function(channel) {
  a <- ggplot(queryfunction(channel), aes(x = Month, y = Volume)) + 
    geom_bar(stat='identity')
    return(a)
}

server.R:

library(shiny)
source('plots.R')
shinyServer(function(input, output,session) {

  #general volume, value, and table plots
  output$plot1 <- renderPlot({plotfunction(channel)})
})

Это прекрасно работает на моем компьютере, но на сервере это не так. Кто-нибудь знает в чем проблема?