New*_*ser 0 plot r auto-update shiny
我想明白为什么使用时,下表是不会自动更新invalidateLater()
的内部observeEvent()
。我准备了以下程序来说明我的问题,“mytable2”使用reactiveTimer()
并确实产生了所需的输出,但是“mytable”使用invalidateLater()
并且不会自动更新,除非我单击“更新”按钮。为什么?
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
actionButton("update", "Update")
),
mainPanel(
column(6, tableOutput('mytable')),
column(6, tableOutput('mytable2'))
)
)
)
server <- function(input, output) {
values <- reactiveValues(df = RenderMyTable())
observeEvent(invalidateLater(1000), {
values$df <- RenderMyTable() # This does not update after 1 sec
})
observeEvent(input$update, {
values$df <- RenderMyTable() # This does update upon clicking
})
output$mytable <- renderTable(values$df) # Depends on reactiveValues
autoInvalidate <- reactiveTimer(1000)
output$mytable2 <- renderTable({
autoInvalidate()
RenderMyTable() # >This does update after 1 sec
})
}
time1 <- Sys.time() # Start time
df <- data.frame(a = 1:1000) # Some data
RenderMyTable <- function(){
# Seconds since start time
time2 <- as.integer(difftime(Sys.time(), time1, units="secs"))
df.now <- df[1:time2,] # Updates each second
df.now
}
shinyApp(ui = ui, server = server)
Run Code Online (Sandbox Code Playgroud)
跟进问题
另外,让绘图自动更新的合适方法是什么(如“mytable2”)?到目前为止,我获得更新图的唯一方法是使用上面“mytable”中的“更新”按钮,但我希望它在 1 秒后自动更新,因为每隔一秒新数据就会开始添加到绘图数据表。
感谢您可以分享的任何建议或资源。
小智 5
首先,我想说我从这段代码中学到了一些东西,这是一种自动化情节变化的非常巧妙的方法,所以谢谢你,我将来会使用它。
对于您的问题,我已经研究了invalidateLater
,正如您所做的那样,它适用于反应性和观察功能。只需将函数更改为observe
fromobserveEvent
并将其移动invalidateLater
到代码的主块中,而不是将其作为参数传递,即可在第一个表输出中解决此问题。
这是我从中获得想法的工作版本的链接: Shiny - invalidateLater
对于您的后续问题,我们可以通过与以前完全相同的过程来完成此操作:
output$autoupdate_plot <- renderPlot({
invalidateLater(2000)
hist(rnorm(isolate(RenderMyTable())))
})
Run Code Online (Sandbox Code Playgroud)
现在将等待 2 秒钟,然后再次运行该功能。我们isolate
用来避免在值更改时更新,但仅在我们决定时更新,在这种情况下以 2 秒为间隔。
下面的完整代码是您非常创新的工作的扩展:
应用程序
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
actionButton("update", "Update")
),
mainPanel(
column(4, tableOutput('mytable')),
column(4, tableOutput('mytable2')),
column(4, plotOutput("autoupdate_plot"))
)
)
)
server <- function(input, output) {
values <- reactiveValues(df = RenderMyTable())
observe({
invalidateLater(1000)
values$df <- RenderMyTable() # This does not update after 1 sec
})
observeEvent(input$update, {
values$df <- RenderMyTable() # This does update upon clicking
})
output$mytable <- renderTable(values$df) # Depends on reactiveValues
autoInvalidate <- reactiveTimer(1000)
output$mytable2 <- renderTable({
autoInvalidate()
RenderMyTable() # >This does update after 1 sec
})
output$autoupdate_plot <- renderPlot({
invalidateLater(2000)
hist(rnorm(isolate(RenderMyTable())), main = "Auto Hist")
})
}
time1 <- Sys.time() # Start time
df <- data.frame(a = 1:1000) # Some data
RenderMyTable <- function(){
# Seconds since start time
time2 <- as.integer(difftime(Sys.time(), time1, units="secs"))
df.now <- df[1:time2,] # Updates each second
df.now
}
shinyApp(ui = ui, server = server)
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
2281 次 |
最近记录: |