由网友(清澈水眸)分享简介：我已在shinyapps.io中部署了一个应用程序，它工作正常。我只运行了5分钟，但当我检查指标时，它显示了大约0.7个小时的运行时间。我发现默认的空闲时间为15分钟，我已将其更改为5分钟(最少)。我还注意到，即使在关闭了这款闪亮应用的浏览器窗口后，它仍然显示该应用在我的仪表板上运行。我假设应用程序不会在关闭浏览器窗口...

我已在shinyapps.io中部署了一个应用程序，它工作正常。

我只运行了5分钟，但当我检查指标时，它显示了大约0.7个小时的运行时间。我发现默认的空闲时间为15分钟，我已将其更改为5分钟(最少)。我还注意到，即使在关闭了这款闪亮应用的浏览器窗口后，它仍然显示该应用在我的仪表板上运行。

我假设应用程序不会在关闭浏览器窗口时停止运行，并且只有在满足空闲时间条件时才会停止。

有没有办法在浏览器窗口关闭时停止这款闪亮的应用程序？下面这段代码在这种情况下可以工作吗？

session$onSessionEnded(function() {
    stopApp()
  })

推荐答案

我不知道shinyapps.io，但在R中(如您的标记所示)，您确实可以通过onSessionEnded停止shinyApp。以下是最小的工作示例。

rm(list=ls())

library(shiny)

doshiny <- function() {
  app=shinyApp(
    ui = fluidPage(
      textInput("textfield", "Insert some text", value = "SomeText")
    ),
    server = function(input, output, session) {
      session$onSessionEnded(function() {
        stopApp()
      })
    }
  )
  runApp(app)
}

openshiny <- function() {
  doshiny()
  print("Finished.")
}

openshiny()