ui.R

## Copyright 2015,2016,2017,2018,2019 Institut National de la Recherche Agronomique
## and Montpellier SupAgro.
##
## This file is part of PlantBreedGame.
##
## PlantBreedGame is free software: you can redistribute it and/or modify
## it under the terms of the GNU Affero General Public License as
## published by the Free Software Foundation, either version 3 of the
## License, or (at your option) any later version.
##
## PlantBreedGame is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU Affero General Public
## License along with PlantBreedGame.  If not, see
## <http://www.gnu.org/licenses/>.


source("src/dependencies.R", local = TRUE, encoding = "UTF-8")$value


## UI parameters
W_sideBar <- 300

shinyUI(
  dashboardPage(
    title = "PlantBreedGame", skin = "green",

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

    # dashboard sidebar items
    dashboardSidebar(
      width = W_sideBar,
      sidebarMenu(
        id = "leftMenu",
        menuItem("How to play?",
          tabName = "info",
          icon = icon("leaf")
        ),
        menuItem("Identification / Home",
          tabName = "id",
          icon = icon("house-user")
        ),
        menuItem("Request plant material",
          tabName = "plant_mat",
          icon = icon("seedling")
        ),
        menuItem("Request phenotyping",
          tabName = "pheno",
          icon = icon("flask")
        ),
        menuItem("Request genotyping",
          tabName = "geno",
          icon = icon("dna")
        ),
        menuItem("Data Visualisation",
          tabName = "data-viz",
          icon = icon("chart-line")
        ),
        menuItem("Evaluation",
          tabName = "eval",
          icon = icon("medal")
        ),
        menuItem("Theory",
          tabName = "theory",
          icon = icon("calculator")
        ),
        menuItem("Admin",
          tabName = "admin",
          icon = icon("cogs")
        ),
        menuItem("About",
          tabName = "about",
          icon = icon("info-circle")
        )
      )
    ),


    # dashboard body
    dashboardBody(
      useShinyjs(),
      ## javascript function
      tags$head(
        tags$script(src = "busyServer.js"),
        tags$script(src = "clientTimeZone.js"),
        tags$script("Shiny.addCustomMessageHandler(
                                  'resetValue',function(variableName){
                                  Shiny.onInputChange(variableName, null);});"),
        tags$link(rel = "stylesheet", type = "text/css", href = "style.css"),
        tags$link(href = "https://fonts.googleapis.com/css?family=Nunito", rel = "stylesheet")
      ),
      tabItems(
        # ---- How to play ? ----
        source("src/ui/ui_information.R",
          local = TRUE,
          encoding = "UTF-8"
        )$value,

        # ---- Identification / Home ----
        tabItem(
          tabName = "id",
          fluidRow(
            uiOutput("id_main_UI"),
            if (debugDisplay) {
              shinydashboard::box(
                width = 12, title = "Debug",
                verbatimTextOutput("IdDebug")
              )
            }
          )
        ),

        # ---- Plant Matrial menu ----
        tabItem(
          tabName = "plant_mat",
          fluidRow(
            uiOutput("pltmat_main_UI"),
            if (debugDisplay) {
              shinydashboard::box(
                width = 12, title = "Debug",
                verbatimTextOutput("plmatDebug")
              )
            }
          )
        ),

        # ---- Phenotyping ----
        tabItem(
          tabName = "pheno",
          fluidRow(
            uiOutput("pheno_main_UI"),
            if (debugDisplay) {
              shinydashboard::box(
                width = 12, title = "Debug",
                verbatimTextOutput("PhenoDebug")
              )
            }
          )
        ),

        # ---- Genotyping ----
        tabItem(
          tabName = "geno",
          fluidRow(
            uiOutput("geno_main_UI"),
            if (debugDisplay) {
              shinydashboard::box(
                width = 12, title = "Debug",
                verbatimTextOutput("GenoDebug")
              )
            }
          )
        ),
        # source("src/ui/ui_geno.R",
        #   local = TRUE,
        #   encoding = "UTF-8"
        # )$value,

        # ---- Evaluation ----
        tabItem(
          tabName = "data-viz",
          fluidRow(
            uiOutput("data_viz_UI")
          )
        ),

        # ---- Evaluation ----
        tabItem(
          tabName = "eval",
          fluidRow(
            uiOutput("evalUI")
          )
        ),

        # ---- Theory ----
        source("src/ui/ui_theory.R",
          local = TRUE,
          encoding = "UTF-8"
        )$value,

        # ---- Admin ----
        tabItem(
          tabName = "admin",
          fluidRow(
            uiOutput("adminUI")
          )
        ),

        # ---- About ----
        source("src/ui/ui_about.R",
          local = TRUE,
          encoding = "UTF-8"
        )$value
      )
    )
  ) # close dashboardPage
) # close shinyUI