闪亮的自动更新表或图与 invalidateLater()

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,正如您所做的那样,它适用于反应性和观察功能。只需将函数更改为observefromobserveEvent并将其移动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)