From feb60526b74ca266fcaac247585db50494a3b136 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Thu, 27 Jul 2017 07:00:20 +0200
Subject: [PATCH] Ajout page d'accueil

---
 UI.R       |  3 ++-
 accueil.md | 35 +++++++++++++++++++++++++++++++++++
 misc.R     |  1 +
 3 files changed, 38 insertions(+), 1 deletion(-)
 create mode 100644 accueil.md

diff --git a/UI.R b/UI.R
index bbed2f8..aba15fa 100644
--- a/UI.R
+++ b/UI.R
@@ -2,7 +2,8 @@ ui <- shinyUI(fluidPage(
                         navbarPage("Celine 2.0", collapsible = T, id = "nav",
                                    tabPanel("Accueil",
                                             radioButtons("CESP", "Procédure", choices = c("Normale", "CESP"), selected = "Normale", inline = T),
-                                            uiOutput("dates")
+                                            uiOutput("dates"),
+                                            includeMarkdown("accueil.md")
                                    ),
                                    tabPanel("Listing",
                                             DT::dataTableOutput("tableListing")),
diff --git a/accueil.md b/accueil.md
new file mode 100644
index 0000000..c5c65b2
--- /dev/null
+++ b/accueil.md
@@ -0,0 +1,35 @@
+# Bienvenue sur **Celine 2.0**
+
+La navigation se fait à l'aide des onglets en haut de la page.  
+L'actualisation de la page se fait automatiquement lorsque de nouvelles données sont disponibles.
+
+## Listing
+
+Cette page présente le listing intégral actuel tel qu'affiché sur le site du CNG.
+
+Chaque colonne est triable et filtrable, permettant d'explorer tous les choix dans un certain rang de classement, tous les choix d'une subdivision, d'une discipline, etc.  
+En maintenant la touche `Shift` enfoncée, il est possible de combiner les tris (par exemple : tri combiné par subdivision et par spécialité).
+
+Un `clic` sur le classement d'un étudiant permet d'accéder à l'onglet **Par étudiant** pour cet étudiant.  
+De même, un `clic` sur un choix (subdivision ou discipline) permet d'accéder à l'onglet **Par discipline et subdivision** pour cette combinaison.
+
+## Par étudiant
+
+Cette page présente l'historique des choix simulés d'un étudiant.
+
+Le graphique montre la trajectoire de l'étudiant au cours du temps, et le tableau récapitule les différents choix simulés.
+
+Un `clic` sur un point du graphique ou une ligne du tableau permet d'accéder à l'onglet **Par discipline et subdivision** pour le choix sélectionné.
+
+## Par discipline et subdivision
+
+Cette page présente l'historique des choix et rangs de classement au sein d'une combinaison Discipline et Subdivision.
+
+Le graphique montre la trajectoire de chaque étudiant ayant simulé au moins une fois ce choix, avec son rang de classement dans le choix.  
+Il est possible de zoomer/se déplacer dans le graphique, et de faire apparaître/disparaître un étudiant avec un `clic` sur son classement dans la légende du graphique. Un `double-clic` sur le classement d'un étudiant dans la légende permet d'afficher sa trajectoire isolée.  
+
+Le tableau montre un récapitulatif de tous les étudiants ayant simulé au moins une fois ce choix, avec la dernière date d'apparition de chaque étudiant pour ce choix et le dernier rang obtenu.
+
+Un `clic` sur un point du graphique ou une ligne du tableau permet d'accéder à l'onglet **Par étudiant** pour cet étudiant.
+
+Si rien n'apparaît sur cette page, aucun étudiant n'a encore simulé ce choix, ou aucun poste n'est ouvert pour cette discipline dans cette subdivision.
diff --git a/misc.R b/misc.R
index 9fe281e..5d016e3 100644
--- a/misc.R
+++ b/misc.R
@@ -5,6 +5,7 @@ library(RSQLite)
 library(stringr)
 library(plotly)
 library(forcats)
+library(markdown)
 
 uniq <- function(df, ...)
 {