如何在Shiny中创建倒数计时器？

Question

我希望能够为我正在处理的R Shiny应用程序创建一个倒数计时器（例如：20分钟，然后是计时器发出哔哔声），用户可以通过单击start启动，停止和重置/停止/重置按钮。我已经看到了一些计数到特定日期/时间的倒计时的例子，但没有遇到一个通用计时器。这样的事情可能吗？任何帮助将不胜感激！

Answer 1

这是一种可能的方法。我们使用两个reactiveVal，一个用于跟踪剩余时间，另一个用于存储计时器当前是否处于活动状态。

希望这有帮助！

library(lubridate)
library(shiny)

ui <- fluidPage(
  hr(),
  actionButton('start','Start'),
  actionButton('stop','Stop'),
  actionButton('reset','Reset'),
  numericInput('seconds','Seconds:',value=10,min=0,max=99999,step=1),
  textOutput('timeleft')

)

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

  # Initialize the timer, 10 seconds, not active.
  timer <- reactiveVal(10)
  active <- reactiveVal(FALSE)

  # Output the time left.
  output$timeleft <- renderText({
    paste("Time left: ", seconds_to_period(timer()))
  })

  # observer that invalidates every second. If timer is active, decrease by one.
  observe({
    invalidateLater(1000, session)
    isolate({
      if(active())
      {
        timer(timer()-1)
        if(timer()<1)
        {
          active(FALSE)
          showModal(modalDialog(
            title = "Important message",
            "Countdown completed!"
          ))
        }
      }
    })
  })

  # observers for actionbuttons
  observeEvent(input$start, {active(TRUE)})
  observeEvent(input$stop, {active(FALSE)})
  observeEvent(input$reset, {timer(input$seconds)})

}

shinyApp(ui, server)