Refactor into resetTypingSpeed()

inst/shiny-input-app/app.R

   )
 }
 
+resetTypingSpeed <- function(inputId, session = getDefaultReactiveDomain()) {
+  session$sendInputMessage("typing", TRUE)
+}
+
 ui <- fluidPage(
   # textAreaInput("typing", "Type here..."),
   typingSpeedInput("typing", "Type here..."),
   output$debug <- renderPrint(input$typing)
 
   observeEvent(input$reset, {
-    session$sendInputMessage("typing", TRUE)
+    resetTypingSpeed("typing")
   })
 }
 

inst/shiny-input-app/dev-shiny-input.Rmd

 whenever the button is clicked.
 
 `r github_sha_link("269e4ebdc48a66ecf7466192076c4fa259582cc6")`
+
+Once you get that working,
+refactor it into a `resetTypingSpeed()` function.
+
+This function should take an `inputId` and a `session` object.
+Use `shiny::getDefaultReactiveDomain()` for the default `session` value.