ui.R

# Author: Julien Diot juliendiot@ut-biomet.org
# 2020
#
# Description:
# main UI file for the application
# this file contain the main structure of the GUI and source
# the ui of the app modules


shinyUI(
    dashboardPage(
        title = APP_TITLE,
        skin = "black",

        # app title
        dashboardHeader(
            title = tagList(shiny::icon("gear", "fa-2x"),
                            paste("\t", APP_TITLE)),
            titleWidth = W_sideBar
        ),

        # dashboard sidebar items
        dashboardSidebar(
            width = W_sideBar,
            sidebarMenu(
                id = "leftMenu",
                menuItem("Marker effect estimation",
                         tabName = "EffEst",
                         icon = icon("microscope")),
                menuItem("Data Vizualisation",
                         tabName = "dtaViz",
                         icon = icon("tv")),
                menuItem("Selection and Mating",
                         tabName = "selectTools",
                         icon = icon("filter")),
                menuItem("Requests",
                         tabName = "requests",
                         icon = icon("file-invoice"))

            )
        ),


        # dashboard body
        dashboardBody(
            # javascript function
            tags$head(
                tags$link(rel = "stylesheet",
                          type = "text/css",
                          href = "appStyle.css"), # in www folder
                tags$link(rel = "stylesheet",
                          href = "https://fonts.googleapis.com/css?family=Nunito")
            ),


            # load all file from "src/ui"
            tabItems(tabItem(tabName = "hidden", useShinyjs())),
            do.call(tabItems,
                    lapply(
                        list.files("src/ui/", full.names = TRUE),
                        function(f){
                            source(f, local = TRUE, encoding = "UTF-8")$value
                        }))
        )
    ) # close dashboardPage
) # close shinyUI