R/app_server.R

In gavandrewj/pdphApp: pdphApp

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  # Your application server logic 
  mod_rawtable_server("rawtable_ui_1")
  mod_varinfo_server("varinfo_ui_1")
  
  mod_histogram_server("histogram_ui_age",
                       metric = 'Age')
  
  mod_barchart_server("barchart_ui_race",
                      metric = "Race",
                      title = NULL,
                      xtitle = "RACE",
                      ytitle = 'Count/Frequency')
  
  mod_histogram_server("histogram_ui_raceage",
                       metric = 'Age',
                       facet = 'Race',
                       min = 14,
                       max = 50)
  
  
  mod_summarytable_server("summarytable_ui_1")
  
  
  mod_mosaic_server("mosaic_ui_1")
  
}