使用实时数据创建闪亮的应用程序答案

【问题标题】：Creating a Shiny app with real time data使用实时数据创建闪亮的应用程序
【发布时间】：2015-11-03 05:04:53
【问题描述】：

我正在尝试创建一个闪亮的应用程序来显示实时收集的数据。为此，我使用invalidateLater(5000, session) 定期更新 R 中的数据。

这是我的server.R 文件的大纲：

library(shiny)
library(magrittr)

# Function to get new observations
get_new_data <- function(){
    data <- rnorm(5) %>% rbind %>% data.frame
    return(data)
}

# Initialize my_data
my_data <- get_new_data()

# Function to update my_data
update_data <- function(){
    my_data <- rbind(get_new_data(), my_data)
}

shinyServer(function(input, output, session){

  # Plot the 30 most recent values
  output$first_column <- renderPlot({
    invalidateLater(5000, session)
    update_data()
    plot(X1 ~ 1, data=my_data[1:30,], ylim=c(-3, 3), las=1)
  })

})

我遇到的问题是我想显示 N 个最近的值，但不知道如何保留旧值。因此，我没有绘制最近的 30 个值，而是绘制了 1 个值。

有谁知道设置 Shiny 应用以更新新数据同时保留旧数据的正确方法？

【问题讨论】：

我认为问题出在您的plot() 电话中。每次调用它都会创建一个新的情节。尝试仅将plot() 用于第一个绘图，然后将points() 用于所有后续绘图
我看到的问题是每个观察的索引都会增加。所以使用points() 将添加到情节中，但仅限于 x=1。
查看一些 JS 库，因为它们在实时方面提供了惊人的功能

标签： r shiny

【解决方案1】：

这对我有用：

library(shiny)
library(magrittr)

ui <- shinyServer(fluidPage(
  plotOutput("first_column")
))

server <- shinyServer(function(input, output, session){
  # Function to get new observations
  get_new_data <- function(){
    data <- rnorm(5) %>% rbind %>% data.frame
    return(data)
  }

  # Initialize my_data
  my_data <<- get_new_data()

  # Function to update my_data
  update_data <- function(){
    my_data <<- rbind(get_new_data(), my_data)
  }

  # Plot the 30 most recent values
  output$first_column <- renderPlot({
    print("Render")
    invalidateLater(1000, session)
    update_data()
    print(my_data)
    plot(X1 ~ 1, data=my_data[1:30,], ylim=c(-3, 3), las=1, type="l")
  })
})

shinyApp(ui=ui,server=server)

问题只是 my_data 在错误的范围内更新。只要记住不要永远继续绑定。

【讨论】：