###################################
# SHINY Explorer - ui.R
###################################

shinyUI(fluidPage(
    
    includeCSS('styles.css'),
    tags$head(tags$link(rel="shortcut icon", href="favicon.ico")),
    
    navbarPageWithText(
        header = '',
        title = tags$span(HTML(paste0(
            '<img src="logo.png" class="logo">',
            '<b style="font-size:160%;"> ... Explorer</b>'
        ))), 
        windowTitle = ' ... Explorer'), 
        id = 'mainNav',
        theme = shinytheme('united'), inverse = TRUE,

		### TABLES (tbl) --------------------------------------------------------------------------------------------------------------
    	source(file.path("ui", "ui_tbl.R"),  local = TRUE)$value
	
		### CHARTS (plt) -----------------------------------------------------------------------------------------------------------
	    source(file.path("ui", "ui_plt.R"),  local = TRUE)$value

		### MAPS (mps) -------------------------------------------------------------------------------------------------------------
    	source(file.path("ui", "ui_mps.R"),  local = TRUE)$value

    	### ADVANCED (adv) ---------------------------------------------------------------------------------------------------
        source(file.path("ui", "ui_adv.R"),  local = TRUE)$value,

    	### ABOUT + CREDITS----------------------------------------------------------------------------------------------------------
    	source(file.path("ui", "ui_about.R"),  local = TRUE)$value,
        
    	### LAST UPDATED AT --------------------------------------------------------------------------------------------------------
        text = paste('Last updated:', format(date.range['max'], '%d %b %Y') )
    
    ),
    
    includeJqueryUI(),
    useShinyjs()

))