R Shiny App 错误：“警告：xy.coords 中的错误：尝试应用非功能”

如何解决R Shiny App 错误：“警告：xy.coords 中的错误：尝试应用非功能”

我是 Shiny 的新手，但我正在尝试创建一个应用程序，用户可以在其中输入名字、姓氏或 SSN，它会返回带有结果的 sql 查询。我不断遇到错误，尤其是 Warning: Error in xy.coords: attempt to apply non-function。下面是我的代码：

rm(list=ls())
library(shiny)
library(RODBC)
ui <- bootstrapPage(
  
  textInput(inputId = "First_Name",label = "First_Name",value = "",width = NULL,placeholder = "Enter Client's First Name"),textInput(inputId = "SSN",label = "SSN",placeholder = "Enter Client's SSN"),textInput(inputId = "Last_Name",label = "Last_Name",placeholder = "Enter Client's Last Name"),plotOutput(outputId = "main_plot",height = "300px")
  
)
server <- function(input,output) {
  
  BDW <- odbcConnect("BDW",uid="",pwd="",believeNRows = FALSE)
  
  table1 <- reactive({sqlQuery(BDW,paste0("
                      SELECT name as 'Name:',ssn as 'SSN',a.address + ',' + a.city + ',' + a.state + ',' + a.zip as 'Address:'
  FROM [RM].[dbo].[CustomerMaster] a
    LEFT JOIN [UVC].[dbo].[UVCWeb_CustomerFlat]b ON a.number = b.RMNumber
  WHERE
  name like '%",input$First_Name,"%'
  and name like '%",input$Last_Name,"%'
  and ssn like '%",input$SSN,"%'
  and bdw_CurrentIndicator = 1"))})
  
  output$main_plot <- renderPlot({
    
    plot(table1()$Name,table1()$ table1()$Address)
    
  })
}
shinyApp(ui,server)

任何关于正在发生的事情的想法。数据其实很简单。只有第 1 列中的客户姓名、第 2 列中的 SSN 和第 3 列中的地址。

谢谢！