0

我有一个在闪亮的应用程序中使用的 SQLite DB。当只有一个人打开了与数据库的连接时，我的查询工作得很快，但是当有多个人时，它变得很慢。我要查询的表很大。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," ",CPN," ",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")  


})
4

0 回答 0