R SQLite 数据库因多个连接而变慢

如何解决R SQLite 数据库因多个连接而变慢

我有一个 sqlite 数据库，我在一个闪亮的应用程序中使用它。当只有一个人打开与数据库的连接时，我的查询工作得非常快，但是当有一个以上的人时，它会变得很慢。我正在查询的表非常大。 870k 行 x 67 列。我有点困惑，为什么当多人使用它时它会滞后这么多。任何想法/建议将不胜感激。

poolfinderdatabase <- dbPool(drv = sqlite(),dbname = "NewDB")

output$poolfinderTS <- renderPlotly({

PF_TimesSeries <- tbl(poolfinderdatabase,"NewDB")%>%
                 filter( CPN %in% local(input$Coupon1),Story %in%   
                     local(input$PoolStories1),Coll %in%   
                     local(input$Agency1),wala >=    
                     local(input$wala_sliders[1]) & wala<=   
                     local(input$wala_sliders[2]),Current.Face >= 5000000)%>%  
                collect()%>%  
                mutate(Coll = gsub("FGLMC","FNCL",Coll))%>%  
                group_by(Date,CPN,Story,Coll)%>%  
                summarize(Median = median(get(input$Y1),na.rm = TRUE))%>%  
                ungroup()%>%  
                mutate(Date =parse_date_time(x = Date,orders =   
                c("mdy","ymd")))%>%  
                mutate(Product = paste(Coll," ",Story))  

  TimeSeries_Chart <- ggplot(PF_TimesSeries,aes(Date,Median,group = 1,colour =  
                    Product,text=paste(  
                     "</br> Date:",PF_TimesSeries$Date,"</br> Value:",round(PF_TimesSeries$Median,3),"</br> Product:",PF_TimesSeries$Product)))+  
                         geom_line()+  
                         theme_minimal()+  
                         theme_light()+  
                         scale_color_hue(l=40,c=80)  

 ggplotly(TimeSeries_Chart,tooltip = "text")  


})