superponer - Actualizar gráfica/gráfica con intervalo de tiempo fijo

superponer graficas en r

Question

Tengo un argumento en Shiny UI. Si cambio cualquier parámetro de entrada y la reactividad cambiará la gráfica. Pero consideremos la siguiente situación: - La trama en el gráfico Shiny UI permite decir el movimiento de precios intradía de una acción. Y para eso consulta alguna fuente de datos en vivo. Ahora si creo un botón de actualización y luego, si pasa el tiempo, sigo haciendo clic en el botón Actualizar. El gráfico se actualizará a medida que lleguen nuevos datos a medida que el tiempo ingrese a esa fuente de datos en vivo. Ahora mi pregunta es: no quiero seguir haciendo clic en el botón de actualización. Pero quiero ejecutar un ciclo con temporizador para que se verifique durante un intervalo de tiempo fijo y tan pronto como aparezcan nuevos datos, el gráfico se actualizará automáticamente. Algo así como Gráficos de Google Finance que se actualiza con el tiempo.

Entonces, el problema se puede simplificar de la siguiente manera: - Consideremos este ejemplo desde Shiny mismo: - ui.R

library(shiny)    

shinyUI(pageWithSidebar(    

  headerPanel("Hello Shiny!"),

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

  mainPanel(
    plotOutput("distPlot")
  )
))

y servidor.R

library(shiny)

shinyServer(function(input, output) {

  output$distPlot <- renderPlot({

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

})

Ahora quiero generar una muestra aleatoria diferente de la distribución normal sin ninguna actividad de entrada. Así que, básicamente, quiero llamar

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

nuevamente sin cambiar la entrada del control deslizante. Por favor, ayúdame a descubrir cómo hacerlo.

Answer 1

Como ejemplo, puede ejecutar lo siguiente de forma local:

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)
    })

  }
))

Se generará una muestra normal diferente cada 5 segundos