Grafico di aggiornamento/grafico con intervallo di tempo fisso

Question

Ho un grafico nell'interfaccia utente lucido. Se cambio qualche parametro di input e attraverso il diagramma di reattività cambierò. Ma prendiamo in considerazione la seguente situazione: - La trama in Shiny UI di tracciamento lascia dire movimento di prezzo intra-day di un titolo. E per questo si interroga qualche fonte di dati in tempo reale. Ora Se creo un pulsante di aggiornamento e poi se il tempo passa, continuo a fare clic sul pulsante Aggiorna. La trama verrà aggiornata man mano che i nuovi dati arrivano con il passare del tempo nella fonte di dati in tempo reale. Ora la mia domanda è che non voglio continuare a fare clic sul pulsante di aggiornamento. Ma voglio fare un ciclo con il timer in modo che controlli su un intervallo di tempo fisso e non appena arrivano nuovi dati, la trama si aggiornerà automaticamente. Qualcosa di Google Finance Graphs che continua ad aggiornare nel tempo.

Quindi il problema può essere semplificata come segue: - Consideriamo questo esempio da Shiny sé: - ui.R

library(shiny)  

shinyUI(pageWithSidebar( 

    headerPanel("Hello Shiny!"), 

    sidebarPanel(
    sliderInput("obs", 
       "Number of observations:", 
       min = 1, 
       max = 1000, 
       value = 500) 
), 

    mainPanel(
    plotOutput("distPlot") 
) 
)) 

e server.R

library(shiny) 

shinyServer(function(input, output) { 

    output$distPlot <- renderPlot({ 

    # generate an rnorm distribution and plot it 
    dist <- rnorm(input$obs) 
    hist(dist) 
    }) 

}) 

Ora voglio generare un campione casuale diverso dalla normale distribuzione senza alcuna attività di input. Quindi in pratica voglio chiamare

dist <- rnorm(input$obs) 
hist(dist) 

di nuovo senza cambiare cursoreInput. Per favore aiutami a scoprire come farlo.

Answer 1

A titolo di esempio si può eseguire il seguente livello locale:

library(shiny) 

runApp(list(
    ui = pageWithSidebar( 

    headerPanel("Hello Shiny!"), 

    sidebarPanel(
    sliderInput("obs", 
       "Number of observations:", 
       min = 1, 
       max = 1000, 
       value = 500) 
), 

    mainPanel(
    plotOutput("distPlot") 
) 
), 
    server =function(input, output, session) { 
    autoInvalidate <- reactiveTimer(5000, session) 
    output$distPlot <- renderPlot({ 
     autoInvalidate() 
     # generate an rnorm distribution and plot it 
     dist <- rnorm(input$obs) 
     hist(dist) 
    }) 

    } 
)) 

Un campione normale diverso verrà generato ogni 5 secondi