inst/shiny/input_time_compound/server.R

In ijlyttle/shinychord: Reusable shiny modules

shinyServer(function(input, output, session) {

  rctval_temp <- reactiveValues(
    duration = lubridate::dhours(3) + lubridate::dminutes(30)
  )

  chord_read_time$server_model(
    input, output, session,
    rctval_input = rctval_temp, item_input = "duration"
  )
})