与dbGetQuery的连接无法正常工作

Question

我想知道什么是错误，我在R中是一个新手，但是有以下错误（在““：语法错误”附近）

你能支持吗？

代码

shinyServer(function (input, output, session) {

output$ppcpOut <- reactive({
  input$user1
})  


output$propertyOut <- reactive({
  input$user2
})
  

ppcpquery <- reactive({
  input$user1
})  

query <- reactive({
  paste('SELECT solubility FROM mytable WHERE PPCP = "%s"', ppcpquery())
})


output$valueout <- reactive({
  
  dbGetQuery(db,query())
  
})

#propertyquery <- eventReactive ({input$user2})  

session$onSessionEnded (function()
  {
  dbDisconnect(db)
})

})

谢谢