重新加载页面时保持闪亮会话

Question

我有一个闪亮的应用程序，我曾使用onSessionEnded来停止该应用程序，当我重新加载页面时它可以工作，当我重新加载标签页时，我不想使会话过期，我想保持相同的会话。对于我的应用程序，应在我关闭选项卡时结束会话。这在Shiny中可能吗？

例如下面的代码甚至可以重新加载页面，但是在刷新页面时我不想停止我的应用程序。仅当我关闭选项卡时，它才应停止应用程序。

library(shiny)

ui =(
  fluidPage(
    titlePanel("This is an example")
  )
)

server = function(input, output, session){
  session$onSessionEnded({
    print("Stop!")
    stopApp   
  }) 
}

runApp(list(ui = ui, server = server))

请帮助我解决这个问题...