如何让Shiny在会话结束后恢复记忆?

问题描述 投票:0回答:1

我有一个闪亮的应用程序,允许每个用户选择要加载的数据集。除了内存使用情况外,应用程序中的所有内容都运行良好。会话结束并且用户关闭 Web 浏览器后,Shiny 不会将可用内存归还给正在运行的计算机。最终,在访问它足够多次后,它就会耗尽内存。

在传统 R 中,我经常在删除数据后频繁调用 gc() 来解决这个问题。然而,这在我闪亮的应用程序中似乎不起作用。

几个小时的谷歌搜索并没有带来任何有洞察力的东西。在这种情况下有没有一种干净的方法来释放未使用的内存?

r memory shiny ram
1个回答
5
投票

也许你可以在

gc()
语句下
observe
加上
invalidateLater
?如果可能的话,也许您可以将每个会话限制为某个内存阈值或某个超时?您可以在下面看到每个会话占用了多少内存。另请查看进程中的任务管理器,此进程占用了多少时间(注意:当前示例每个会话大约需要
440Mb

rm(list = ls())
library(shiny)

cleanMem <- function(n=10) { for (i in 1:n) gc() }

runApp(list(
  ui = fluidPage(
    tableOutput('foo')
  ),
  server = function(input, output,session) {
    
    observe({
      # periodically collect
      invalidateLater(1000,session)
      cleanMem()
    })

    x1 <- 1:100000000
    x2 <- rbind(mtcars, mtcars)
    env <- environment()  # can use globalenv(), parent.frame(), etc
    output$foo <- renderTable({
      data.frame(
        object = ls(env),
        size = unlist(lapply(ls(env), function(x) {
          object.size(get(x, envir = env, inherits = FALSE))
        }))
      )
    })
  }
))
© www.soinside.com 2019 - 2024. All rights reserved.