Pasted

###################################
# 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()
 
))