I made a shiny app which I deployed on shinyapp.IO. Since, I am using free account of shinyapps.io which gives 25hrs/month of application usage. Hence, I am trying to conserve application usage time.
For which I am trying to stop the app once the window is closed. I am using this command, found in the internet.
library(shinyjs)
jscode <- "shinyjs.closeWindow = function() { window.close(); }"
ui <- fluidPage(
useShinyjs(),
extendShinyjs(text = jscode, functions = c("closeWindow")),
actionButton("close", "Close window")
)
server <- function(input, output, session) {
observeEvent(input$close, {
js$closeWindow()
stopApp()
})
}
# I have even tried stopApp() above js$closewindow()
If I deploy the app locally then the app closes in RStudio. But, when deployed vi shinyapps.IO the app status remains online even after using closeWindow button.
Setting idle time to minimum 5 min in shinyApps.IO will result use of 2 hr 30 min. Hence, I can effectively use the app for 22 hr 30 min/month. i.e. almost for 21-22 days. If used approx. 1hr/day.
Can't pay for the app, Not earning yet.
Is there anyway I can stop app, once app window is closed.
Thank You for your support.