Question

我开发了一个闪亮的应用程序，用户可以上传文件并选择X参数，然后按下按钮，它会生成5个图（ggplot2和barplot）以及动态数据表（DT）。另外，我想把我闪亮的应用程序放到linux服务器上。

我使用tempfiles()为我用来创建图表和DT的每个文件。

之后，我的问题是：

当用户关闭闪亮的应用程序（关闭窗口）时，是否会自动删除临时文件？

如果没有，我该怎么做才能删除临时文件？

我的尝试：

session$onSessionEnded(function() {
  if (!is.null(x1)) {
    file.remove(x1)
  }
  if (!is.null(x2)) {
    file.remove(x2)
  }
  if (!is.null(x3)) {
    file.remove(x3)
  }
  if (!is.null(x4)) {
    file.remove(x4)
  }
  if (!is.null(xx)) {
    file.remove(xx)
  }
})

或者：

session$onSessionEnded(function() {
  files <- list.files(tempdir(), full.names = T, pattern = "^file")
  file.remove(files)
})

使用该代码，当用户按下按钮一次时，我删除了临时文件，如果用户按下按钮超过1次，则窗口关闭，它只会删除最后生成的文件。第二部分删除临时目录中的所有文件，但这会影响到其他用户？（我想是的，这就是为什么我需要另一个解决方案）。

ggplot和barplot生成的.png临时文件不会自动删除。

我担心的是，如果临时文件没有自动删除，并且linux服务器会因为大量的临时文件而崩溃。

希望你能解决我的疑虑。 Att Joan。

Answer 1

如果您希望deleteFile=TRUE功能自动删除临时文件，则可以使用render参数：

shinyServer(function(input, output, clientData) {
  output$myImage <- renderImage({
    # A temp file to save the output.
    # This file will be removed later by renderImage
    outfile <- tempfile(fileext='.png')

    # Generate the PNG
    png(outfile, width=400, height=300)
    hist(rnorm(input$obs), main="Generated in renderImage()")
    dev.off()

    # Return a list containing the filename
    list(src = outfile,
         contentType = 'image/png',
         width = 400,
         height = 300,
         alt = "This is alternate text")
      }, deleteFile = TRUE)
    })

创建临时文件以保存输出，稍后由于deleteFile=TRUE参数自动删除该文件。

默认Shiny（shiny.R）还有一个内置机制，清除文件上传目录，如果您关注的话。以下代码在会话结束时删除上载目录：

registerSessionEndCallbacks = function() {
      # This is to be called from the initialization. It registers functions
      # that are called when a session ends.

      # Clear file upload directories, if present
      self$onSessionEnded(private$fileUploadContext$rmUploadDirs)
    }

关于手动删除临时文件的另一点（正如您所尝试的那样）：每次用户切换到另一个选项卡或调整其浏览器窗口大小时，绘图都必须呈现，因此如果您手动删除该文件可能效率低下，因为需要再次重新渲染。 onSessionEnded解决方案更好，因为它确认会话已结束。

session$onSessionEnded(function() {
   if (!is.null(input$file1)) {
    file.remove(input$file1$datapath)
  }
})

使用闪亮时的Tempfiles

1 个答案: