При попытке передать введенный пользователем ввод (empId) из Shiny UI в sql-запрос на световом сервере. R не уверен, как отладить эту ошибку.

 Error in as.vector(x, "character") : 
 cannot coerce type 'closure' to vector of type 'character'

UI.r

library(shiny)

shinyUI(fluidPage(
titlePanel("Employee Table (AdventureWorks)"),
sidebarLayout(
sidebarPanel((""),
             textInput("idnumb", "Employee ID number",""),
             submitButton("Ok")),
             mainPanel(tableOutput("emptitle")))))

Server.r

 shinyServer(function(input, output) {
 library(RODBC)
 library(sqldf)
 a1 = reactive({ (input$idnumb) })
 acc_con1 = odbcConnect("AdvWrk", uid="... ", pwd="... ")
 sql1 = sqlQuery(acc_con1, paste0('select Title from dbo.Employee where EmployeeID=',a1))
 output$emptitle = renderTable(print(sql1))
 })

Чтобы проверить, работает ли мой запрос, я устал от фактического EmployeeID в sql, как показано ниже

  .
  .
  sql1 = sqlQuery(acc_con1, paste0('select Title from dbo.Employee where EmployeeID = 8'))
  .
  .

Я получаю нормальный выход,

  Title
  Production Technician - WC10 

Когда я пытаюсь сделать это реагирующим на пользовательский ввод, я вижу ошибку в as.vector (x, «символ»): не могу принудить тип «замыкание» к вектору типа «символ ... ошибка ...» Нужна помощь.