ui.R

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

))