Question

背景

我必须为项目创建基于原型地图的仪表板。我决定使用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 - 我使用options(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

我希望有人可以提供帮助。谢谢:)）

Answer 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)

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

背景

代码：

问题

自己的研究

规格

1 个答案: