R闪亮的服务器传单内存泄漏

2023年1月14日 264次阅读

背景

我必须为项目创建基于原型地图的仪表板.我决定使用R shine,因为它对我的数据有最好的数据管理,并且易于使用.我将Leaflet与Rshiny结合使用.创建地图后,它会以特定的时间间隔进行更新,并使用新数据重新创建地图(批量实时批量生产).数据将非常多,但仍可在传单应用程序中进行管理.

码：

library(shinydashboard)
library(leaflet)

ui <- fluidPage(
  dashboardBody(
    box(width = NULL, solidHeader = TRUE,
                 leafletOutput("busmap", height = 900)
    )
  )
)

server <- function(input, output) {

liveish_data <- reactive({
    invalidateLater(6000)
    lat <- runif(3000, min=51, max=53.5)
    lon <- runif(3000, min=4, max=8)
    DF_Actueel <- data.frame(lat,lon)
    print("refreshed")
    DF_Actueel
  })

  output$busmap = renderLeaflet({
    DF_Actueel <- liveish_data()
    map <- leaflet(options=list())%>%
      addProviderTiles(providers$OpenStreetMap.HOT) %>%
      addMarkers(data = DF_Actueel)

    map
  })
}

shinyApp(ui, server)

问题

我在运行应用程序时检查了我的taks经理.我的问题是,当这个应用程序运行时,RStudio使用一些内存(我的电脑大约350MB),每次更新时,Rshiny的内存使用量增加20MB.

> object.size(map)
148000 byte

这意味着几分钟后,Rstudio内存不足.我已经给了它更多的记忆……但这只是意味着它会耗尽.

自己的研究

我看过类似的问题：

Shiny R reactivevalues memory leak – 未答复

https://github.com/rstudio/shiny/issues/1551 – 使用了Observe()函数

https://github.com/rstudio/shiny/issues/1591 – 我使用了选项(shiny.reactlog = TRUE)并检查输出.我只有一个地图对象

https://github.com/rstudio/shiny/issues/1151 – 使用Plotly而不是传单,即使关闭也没有解决.

在相同的主题和相同的未回答的问题中还有一些更多.

产品规格

Windows 10
24GB RAM
64-bit operating system
Intel(R) Core i7-6700HQ CPU @ 2.6GHz
R version 3.4.3 (2017-11-30)
leaflet 1.1.0
shinydashboard 0.6.1

我希望有人能帮帮忙.谢谢 ：)

最佳答案 我将addMarkers移动到leafletProxy,这样地图就不会新渲染并在6秒内加载到内存中.我认为如果你在添加新标记之前使用clearMarkers(),内存应该保持稳定.

这是代码：

library(shinydashboard)
library(leaflet)

ui <- fluidPage(
  dashboardBody(
    box(width = NULL, solidHeader = TRUE,
        leafletOutput("busmap", height = 900)
    )
  )
)

server <- function(input, output) {

  liveish_data <- reactive({
    invalidateLater(6000)
    lat <- runif(3000, min=51, max=53.5)
    lon <- runif(3000, min=4, max=8)
    DF_Actueel <- data.frame(lat,lon)
    print("refreshed")
    DF_Actueel
  })

  output$busmap = renderLeaflet({
    map <- leaflet(options=list())%>%
      addProviderTiles(providers$OpenStreetMap.HOT)
    map
  })

  observe({
    DF_Actueel <- liveish_data()
    leafletProxy("busmap", deferUntilFlush=T) %>% 
      clearMarkers() %>% 
      addMarkers(data = DF_Actueel)
  })
}

shinyApp(ui, server)
点赞