如何在 ssession 关闭时删除 Shiny 应用程序创建的文件

Question

我在 Shiny 应用程序中生成并显示一个 flextable 并想将它放在 PDF 中。唯一可用的方法是将 flextable 对象转换为 PNG，然后将 PNG 放入 PDF。对于每个 PNG 文件，我分配了一个包含日期时间戳的文件名，以使其在会话之间是唯一的。这个文件名保存在一个reactiveValue 中。

当用户完成并关闭会话时，如何删除文件？如果我不这样做，我会堆积无关的文件。我不能使用 onSessionEnded() 因为当浏览器关闭时反应值都消失了。我无法使用模式进行概括，因为其他用户有具有相似名称的文件。我必须专门删除这些PNG文件。

有任何想法吗？

不起作用的 onSessionEnded 代码：

observe({
  session$onSessionEnded(function() {
    unlink(c(values$fnameSummary))
    unlink(c(values$fnameLike))
    unlink(c(values$fnameRisk1))
  })
})

这会产生以下错误：

Warning: Error in .getReactiveEnvironment()$currentContext: Operation not 
allowed without an active reactive context. (You tried to do something 
that can only be done from inside a reactive expression or observer.)
Stack trace (innermost first):
    33: .getReactiveEnvironment()$currentContext
    32: .subset2(x, "impl")$get
    31: $.reactivevalues
    30: $
    29: unlink
    28: callback [C:\Users\jch1748\Documents\Projects\W2017010 - Combined Risk Tool\testing/server.R#2790]
     1: runApp

也许一个有效的例子会有所帮助？

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
tsts <- reactiveValues()
# Define UI for application that draws a histogram
ui <- fluidPage(

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("distPlot")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })

   observe({
     tsts$fname <- "AAA.txt"
     write(input$bins, file=tsts$fname)
   })

    onSessionEnded(function() {
     cat("Session Ended\n")
     unlink(tsts$fname)
     }) 
}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

我遇到了类似的问题，我想动态地提供图像和 pdf 文件以在闪亮的应用程序中下载。因此，文件需要放置在www目录中，这使得tempdir的使用变得不可能。此外，应用程序停止后需要删除创建的文件。我用下面的代码解决了这个问题：

session$onSessionEnded(function() {
  system(paste("rm -f", PathToFile))
})