if (interactive()) {
library(shiny)
shinyApp(
ui = fluidPage(
shinyTimer("timer", label = "Countdown Timer", seconds = 20, type = "mm:ss"),
actionButton("start", "Start Countdown"),
actionButton("pause", "Pause Countdown")
),
server = function(input, output, session) {
observeEvent(input$start, {
countDown("timer")
})
observeEvent(input$pause, {
pauseTimer("timer")
})
}
)
}
Run the code above in your browser using DataLab