我创建了一个R shiny应用程序，它使用一个批处理文件每天自动运行。启动应用程序时一切正常，但第二天它崩溃了，我收到以下消息:

Warning in file(open = "w+") :
  cannot open file
'C:\Users\bertin\AppData\Local\Temp\RtmpKiBPOU\Rf3f835d1a66' : No such file or directory
Warning: Error in file: cannot open the connection
  [No stack trace available]

实际上，这个问题与执行shiny应用程序的R会话创建的< code>tempdir()文件夹有关。该文件夹会在一定时间后自动删除。我必须在每次刷新时删除所有临时文件吗？或者相反，需要阻止R删除temp文件夹中所有闪亮的临时文件吗？谢谢！

编辑-以下是如何故意生成错误：

tempdir()
dir.exists(tempdir())

library(shiny)

# Windows shell required
shinyApp(
    ui = fluidPage("Please reload to see me fail."),
    server = function(input, output) {
        shell(paste("rmdir", dQuote(
            normalizePath(tempdir(), winslash = "/", mustWork = FALSE), q = FALSE
        ), "/s /q"))
    }
)