Как остановить автоотключение блестящей приборной панели - PullRequest
Новая
       12

Как остановить автоотключение блестящей приборной панели

1 голос
/ 29 мая 2019

Через 1 минуту моя блестящая приборная панель закрывается сама. Та же проблема возникает, если я открываю ее в браузере, но на этот раз все окно становится затененным. Я всегда могу перейти к одному пункту меню в другой, но серия не появляется.

Я бы хотел, чтобы блестящая приборная панель никогда не выключалась и была готова к использованию в любое время, даже если я оставила приборную панель на определенное время.

РЕДАКТИРОВАТЬ

Даже если я попробую код здесь (ответ ismirsehregal), моя панель всегда будет закрыта. 

ui <- dashboardPage(
  dashboardHeader(),

  dashboardSidebar(),

  dashboardBody(tags$head(tags$style(HTML("<script>
                                                var socket_timeout_interval
                                                var n = 0
                                                $(document).on('shiny:connected', function(event) {
                                                socket_timeout_interval = setInterval(function(){
                                                Shiny.onInputChange('count', n++)
                                                }, 15000)
                                                });
                                                $(document).on('shiny:disconnected', function(event) {
                                                clearInterval(socket_timeout_interval)
                                                });
                                            </script>"))),
                                                      textOutput("keepAlive")))

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

  output$keepAlive <- renderText({
    req(input$count)
    paste("keep alive ", input$count)
  })}

shinyApp(ui, server)

1 Ответ

0 голосов
/ 06 июня 2019

Я наконец-то воспользовался ответом Стефана Лорана, вы просто должны поместить это в свою серверную часть: 

autoInvalidate <- reactiveTimer(59000)
  observe({
    autoInvalidate()
    cat(".")
  })

Число в реактивном Тимере - это число миллисекунд: здесь точка отображается каждые 59 секунд.

...