r - 如何通过关闭浏览器窗口来停止运行 Shiny 的应用程序？

Question

我在 中部署了一个应用程序Shinyapps.io 并且工作正常。

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

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

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

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

Answer 1

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

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()