Shiny 无法连接到ODBC

我正在尝试连接到Teradata

下面是我的代码，但在我选择指示器并单击操作按钮后，我总是得到“错误：[on_request_read]connection reset by peer”。感谢您对此的任何意见。谢谢

                ui <- shinyUI(fluidPage(
              titlePanel("Generic grapher"),
              sidebarLayout(
                sidebarPanel(

                  numericInput("wafer", label = h3("Select Indicator:"),
                               value = NULL),

                  actionButton("do", "An action button")
                ),

                mainPanel(
                  verbatimTextOutput("value"),
                  verbatimTextOutput("que"),
                  verbatimTextOutput("wq_print"),
                  dataTableOutput(outputId="pos")
                )
              )
            )
            )

            library(markdown)
            library(RODBC)
            library(DBI)
            library(sqldf)
            ch<-odbcConnect("xxx", uid=" ",pwd=" ") 
            wq = data.frame()

            server <- shinyServer(function(input, output){

              values <- reactiveValues()
              values$df <- data.frame()

              d <- eventReactive(input$do, { input$wafer })

              output$value <- renderPrint({ d() }) 

              a <- reactive({ paste("SELECT * FROM dwname.tablename WHERE indicator_x = ", d(), sep="") })

              output$que <- renderPrint({ a() }) 

              observe({
                if (!is.null(d())) {
                  wq <- reactive({  sqlQuery( a() ) })

                  output$wq_print <- renderPrint({ print(str(wq())) })

                  values$df <- rbind(isolate(values$df), wq())
                }
              })

              output$pos <- renderDataTable({ values$df })  

            })

            shinyApp(ui, server)

---

ui您的应用程序是否正常工作，或者是否因错误而崩溃？