Question

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

所以问题可以简化如下： - 让我们从Shiny本身考虑这个例子： - ui.R

library(shiny)    

shinyUI(pageWithSidebar(    

  headerPanel("Hello Shiny!"),

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

  mainPanel(
    plotOutput("distPlot")
  )
))

和server.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)

再次不改变sliderInput。请帮我看看如何做到这一点。

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秒生成一个不同的正常样本

Answer 2

这也可以使用 reactivePoll 解决。代码简单了很多。它还有一个优点，你可以使用一个检查函数，它不一定会因为时间已经过去而使反应式表达式无效。您可以通过这种方式编写对资源要求较低的代码。

然而，该示例仅使用 Sys.tim() 作为检查函数。由于每次调用 Sys.time() 都会有所不同，因此检查函数始终指示需要更新。

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) {
    dist <- reactivePoll(5000, session, function () Sys.time(), function () {
      rnorm(input$obs)
    })

    output$distPlot <- renderPlot({
      hist( req(dist()) )
    })
  }
))

以固定的时间间隔更新图形/图表

2 个答案: