闪亮的倒数计时器然后触发

Question

我使用以下代码在点击按钮后进行了3秒钟的倒计时。我希望输出在倒数到0时将其更改为其他内容，例如“倒数完成”。

我如何实时收听倒计时输出（不是输入），以了解倒计时何时达到0并触发其他操作？

library(shiny)
library(shinyjs)

ui <- fluidPage(
  actionButton("do", "Click Me"),
  verbatimTextOutput("eventTimeRemaining")
)

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


  observeEvent(input$do, {

    EventTime <- Sys.time() + 3


    output$eventTimeRemaining <- renderText({
            invalidateLater(1000, session)
            round(difftime(EventTime, Sys.time(), units='secs'))
                                            })

  })



}

shinyApp(ui, server)

我使用以下代码在点击按钮后进行了3秒钟的倒计时。倒数到0时，我希望输出更改为其他内容，例如“倒数完成”。我该如何收听...

Answer 1

TLDR：使EventTime具有反应性