inst/examples/02_date_range/app.R

In HarryRosen/hrimodules: Harry Rosen Inc Shiny Modules

require(shiny)
require(hrimodules)


ui<-fluidPage(date_range_ui("test"),
              h4("Underlying Date Range Value"),
              textOutput("values"))


server<-function(input,output,session){

  dr<-callModule(date_range_server,id="test")

  output[['values']]<-renderText({
    req(!is.null(dr$selected()))
    dr$selected()})
}

shinyApp(ui,server)