r erro brilhante Erro no as.vector (x, “caractere”): não é possível coagir o tipo 'encerramento' para o vetor do tipo 'caractere'

Ao tentar passar uma entrada inserida pelo usuário (empId) da Shiny UI para uma consulta sql no server.r brilhante, não sei como depurar esse erro.

 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))
 })

Para testar se minha consulta funciona, eu cansei disso com o EmployeeID real no sql como este abaixo

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

Eu recebo uma saída normal,

  Title
  Production Technician - WC10 

Quando tento tornar isso reativo à entrada do usuário, vejo Erro no as.vector (x, "character"): não é possível coagir o tipo 'encerramento' para o vetor do tipo 'caractere ... erro ... Preciso de ajuda.