r - 以固定的时间间隔更新图形/绘图

Question

我在 Shiny UI 中有一个情节。如果我更改任何输入参数并且通过 react 性图将会改变。但是让我们考虑以下情况:-
Shiny UI 中的绘图可以说股票的日内价格变动。为此，您查询一些实时数据源。现在，如果我创建一个刷新按钮，然后如果时间过去了，我会继续单击刷新按钮。随着时间进入该实时数据源，该图将随着新数据的到来而更新。
现在我的问题是我不想一直点击刷新按钮。但是我想用计时器运行一个循环，以便它检查固定的时间间隔，并且一旦有新数据出现，绘图就会自动更新。某种 Google Finance Graphs 会随着时间的推移不断更新。

所以问题可以简化如下: -
让我们考虑一下 Shiny 本身的这个例子:-
用户界面

library(shiny)    

shinyUI(pageWithSidebar(    

  headerPanel("Hello Shiny!"),

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

  mainPanel(
    plotOutput("distPlot")
  )
))

和服务器.R

library(shiny)

shinyServer(function(input, output) {

  output$distPlot <- renderPlot({

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

})

现在我想在没有任何输入事件的情况下从正态分布生成一个不同的随机样本。所以基本上我想打电话

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

再次不更改 slider 输入。
请帮我找出如何做到这一点。

Answer 1

例如，您可以在本地运行以下命令:

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

  }
))

每 5 秒将生成一个不同的正常样本