test_app/test-app-timeUnit.R

In Lightbridge-KS/ZoomInterface: Manipulate Zoom's chat file (for now)

library(shiny)

ui <- fluidPage(
  selectTimeUnit_UI("unit"),
  verbatimTextOutput("raw")
)

server <- function(input, output, session) {
  
  time_unit <- selectTimeUnit_Server("unit")
  
  output$raw <-  renderPrint({ time_unit() })
  
}

shinyApp(ui, server)