Add new input value returned after pausing shinyTimer.

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: shinyTimer
 Title: Customizable Timer for 'shiny' Applications
-Version: 0.1.0.9001
+Version: 0.1.0.9002
 Authors@R: 
     person("Maciej", "Banas", email = "banasmaciek@gmail.com", role = c("aut", "cre"))
 Description: Provides a customizable timer widget for 'shiny' applications. Key 

NEWS.md

@@ -1,6 +1,7 @@
 # shinyTimer (development version)
 
-* Renamed `background` parameter to `frame` to better reflect its purpose. Added `fill` parameter to pass colors to the background of the `shinyTimer` ([#60](https://github.com/maciekbanas/shinyTimer/issues/60)).
+* Added new feedback value (text content of the timer) returned after pausing `shinyTimer` (#63). It can be accessed via `input$shinytimer_content`.
+* Renamed `background` parameter to `frame` to better reflect its purpose. Added `fill` parameter to pass colors to the background of the `shinyTimer` (#60).
 
 # shinyTimer 0.1.0
 

inst/examples/shinymobile_timer_up.R

@@ -39,7 +39,8 @@ ui <- shinyMobile::f7Page(
       ) |>
         htmltools::tagAppendAttributes(
           style="font-size:20px;"
-        )
+        ),
+      shiny::textOutput("shinytimer_content_output")
     )
 
   )
@@ -55,6 +56,9 @@ server <- function(input, output, session) {
   shiny::observeEvent(input$resume_timer, {
     resetTimer("shiny_timer")
   })
+  output$shinytimer_content_output <- shiny::renderText({
+    input$shinytimer_content
+  })
 }
 
 shinyApp(ui, server)

inst/www/timer.js

@@ -63,7 +63,10 @@ Shiny.addCustomMessageHandler('countUp', function(message) {
 });
 
 Shiny.addCustomMessageHandler('pauseTimer', function(message) {
+  const { inputId, start } = message;
   clearInterval(timerInterval);
+  const timerElement = document.getElementById(inputId);
+  Shiny.setInputValue("shinytimer_content", timerElement.textContent)
 });
 
 Shiny.addCustomMessageHandler('resetTimer', function(message) {