sqliteSendQuery（con、statement、bind.data）中出错：SQLiteConnection已过期

我正在尝试构建一个闪亮的应用程序，第一个下拉菜单是使用renderUI从SQLite填充的

下面是我的服务器

library("shiny")
library("RSQLite")

shinyServer(function(input, output) {


db<-dbConnect(SQLite(),"PNL.sqlite")


origins<-data.frame(dbGetQuery(db,"SELECT Origin_Name from CNS_Origin_List"))

output$origin<-renderUI({
  selectInput(inputId = "origin",label = "Select Origin",choices = origins$Origin_Name)
})


query<-reactive({
                 sql<-dbGetQuery(db,paste0('SELECT Region_Name from CNS_Origin_List Where Origin_Name ="',input$origin,'"'))
})





#This is where the error occurs when I call the query()
output$region<-renderTable(query())


dbDisconnect(db)
})

我明白了

Error in sqliteSendQuery(con, statement, bind.data) : 
  expired SQLiteConnection

---

我不知道我会错在哪里。请帮助

我猜代码末尾的

dbDisconnect（db）

是用来断开应用程序末尾的db的。您应该使用

会话$onSessionEnded

Error in sqliteSendQuery(con, statement, bind.data) : 
  expired SQLiteConnection