отобразить значение переменной, которая изменяется несколько раз

Question

Я хотел бы знать, как отобразить значение переменной, которая изменялась несколько раз, я пробовал с будущим методом, но он не работает.

library(shiny)

# library(ipc)
# library(future)
# library(promises)
# plan(multiprocess)

ui <- fluidPage(
  textOutput("t")
)

server <- function(input, output, session) {

  status <- reactiveVal({NULL})
  observe({
      status("beginning")
      # a function that takes a lot of time
      Sys.sleep(2)
      status("End")
  })

  # observe({
  #   future({
  #     queue$producer$fireAssignReactive("var", 0)
  #     Sys.sleep(2)
  #     queue$producer$fireAssignReactive("var", 1)
  #   }); NULL
  # })

  output$t <- renderText(status())
}

shinyApp(ui, server)

Answer 1

Этот код увеличивает `var 'на 1 каждые две секунды.Это то, что вы хотите?

library(shiny)

# library(ipc)
# library(future)
# library(promises)
# plan(multiprocess)

ui <- fluidPage(
  textOutput("t")
)

server <- function(input, output, session) {


  var <- reactiveVal(-1)


  # observer that invalidates every second. If timer is active, decrease by one.
  observe({
    invalidateLater(2000, session)
    isolate({
    var(var()+1)
      })
  })
  output$t <- renderText(var())
}

shinyApp(ui, server)