Stop Shiny and Close Browser Together

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

(This article was first published on data_steve, and kindly contributed to R-bloggers)

I’ve been playing with shiny at work for a project Tyler and I have been pushing forward.

My Goal

We wanted to be able to deploy local instances of shiny app and then when user is done with session, the user can close out the session by closing the browser and shutting down shiny server at same time.

StackOverflow and Google groups had several stepping stones to help in the process, which with a bit of refactoring did the trick. The first link pointed to the javascript snippet I could possibly use, though no real suggestions on how to use it.

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

Next, shiny’s google group had a tip on inserting Javascript into shiny, which didn’t work for me but evidently did for others. Then, back at StackOverflow, I found that the javascript above has its drawbacks if a user refreshed their session midway.

My Solution and Edit

The solution that works for me in this minimal shinyApp demo was to edit the SO answer at the last link. (At time of this post, my edit had not been approved yet, so you may find the SO link has code that doesn’t work.) Basically, just add a close button that shuts down shiny server locally and closes browser, simple enough. And in shinyUI, one could possibly make this button appear only once end of app session was complete.

I had to edit the original answer because I couldn’t get the proposed solution to observe the stopApp()command before window.close() closed the connection to shiny. So, I added a simple setTimeoutsolution around the window.close(); action to give shiny enough time to observe, combining this SO absolute minimal clue of an answer with good ol’ W3’s practice session example.

library(shiny) runApp(list(   ui = bootstrapPage(     tags$button(       id = 'close',       type = "button",       class = "btn action-button",      ,  # close browser       "Close window"     )   ),   server = function(input, output) {     observe({       if (input$close > 0) stopApp()                             # stop shiny     })   } ))

I thought I’d write all this up in one place so that all my running around wasn’t a waste.

Tweet

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：together browser Browse Shiny Close Browser