我正在尝试创建一个闪亮的应用程序来显示实时收集的数据。为此我正在使用invalidateLater(5000, session)
定期更新 R 中的数据。
这是我的轮廓server.R
file:
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最新的值,但不知道如何保留旧的值。因此,我得到的是 1 个值的图,而不是绘制最近的 30 个值。
有谁知道设置闪亮应用程序以使用新数据更新同时保留旧数据的正确方法?
这对我有用:
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 在错误的范围内更新。请记住不要永远继续绑定。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)