gpt4 book ai didi

r - 使用实时数据创建 Shiny 的应用程序

转载 作者:行者123 更新时间:2023-12-04 13:31:25 24 4
gpt4 key购买 nike

我正在尝试创建一个 Shiny 的应用程序来显示实时收集的数据。为此,我使用 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 应用程序以更新新数据同时保留旧数据的正确方法?

最佳答案

这对我有用:

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 在错误的范围内更新。只要记住不要永远继续绑定(bind)。

关于r - 使用实时数据创建 Shiny 的应用程序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33480302/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com