R Shiny错误'closure'不是子集

Question

我正在尝试构建一个闪亮的应用程序来绘制我从数据库中获取的一些数据。下面是我的ui.R和server.R文件。问题是情节不起作用，我总是得到一个错误：

  

数据错误$ DATE：类型为'closure'的对象不是   subsettable

ui.R：

 library(shiny)
shinyUI(pageWithSidebar(
  # Application title
  headerPanel("TEST1234"),

  sidebarPanel(
selectInput("choice", "Choose a Code:", 
            choices = c("123", "124", "125")),
dateInput("sdate","Startdate",value="2013-01-01",min="2013-01-01"),
dateInput("edate","Enddate"),
submitButton(text="Start")),

mainPanel(
tabsetPanel(
  tabPanel("Plot",h4("Plot"),htmlOutput("plot"))
 )
)
))

server.R

library(shiny)
library(RODBC)
library(googleVis)

shinyServer(function(input,output){

data<-reactive({
          connection <- odbcConnect("DB", uid="user",pwd="pw");  
          sql<-"select * from data where code='mycod' order by date desc" 
          sql<-gsub("mycod",input$coice,sql)
          data <- sqlQuery(connection,sql,dec=",");
              })

 plotdata<-data.frame(DATE=data$DATE,DATA=round(data$values*100,2))
output$volaplot<-renderGvis({
  return(gvisLineChart(plotdata,xvar="DATE",options=list(title="Test Plot")))
 })
  odbcCloseAll() 
})

db-query的输出是一个data.frame，有两列，一个日期列和相应的值，我想在之后绘制。提前谢谢。