Тайм-аут бесплатной версии сервера не работает

Question

Я попытался этот код, чтобы обойти проблему блестящего тайм-аута сервера в бесплатной версии.Но это не работает.

inactivity <- "function idleTimer() {
var t = setTimeout(logout, 60000);
window.onmousemove = resetTimer; // catches mouse movements
window.onmousedown = resetTimer; // catches mouse movements
window.onclick = resetTimer;     // catches mouse clicks
window.onscroll = resetTimer;    // catches scrolling
window.onkeypress = resetTimer;  //catches keyboard actions

    function logout() {
      //close the window
    }

    function resetTimer() {
    clearTimeout(t);
    t = setTimeout(logout, 60000);  // time is in milliseconds (1000 is 1 second)
    }
    }
    idleTimer();"


ui <- fluidPage(
  tags$script(inactivity))

server <- function(session, input, output) {

  points <- eventReactive(input$recalc, {
    cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
  }, ignoreNULL = FALSE)
  })

shinyApp(ui, server)

Мне нужно сделать блестящее приложение, которое будет активным не менее 10 минут.Предполагается, что этот код позволяет обойти проблему тайм-аута сеанса в бесплатной версии.Но это становится тайм-аут после 1 минуты.Что должно быть сделано?