tests/testthat/shinytest/time_picker/app.R

In daqana/dqshiny: Enhance Shiny Apps with Customizable Modules

library(shiny)
library(dqshiny)

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(3,
        time_input("time1", "Simple:", value = "12:34"),
        time_input("time2", "Fancy:", use_material_picker = TRUE),
        actionButton("update", "Update")
      )
    )
  ),
  server = function(input, output, session) {
    observeEvent(input$update, {
      update_time_input(session, "time2", value = "12:34")
    })
  }
)