From 9d9d38ba2c02810f07a90c48086e33f0ca664860 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Thu, 23 Nov 2017 01:40:59 +0100
Subject: [PATCH] =?UTF-8?q?Manuel=20+=20s=C3=A9lection=20variables=20de=20?=
 =?UTF-8?q?groupage=20et=20pr=C3=A9selection=20variables=20=C3=A0=20analys?=
 =?UTF-8?q?er?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 index.Rmd | 35 ++++++++++++++++++++++++++++-------
 1 file changed, 28 insertions(+), 7 deletions(-)

diff --git a/index.Rmd b/index.Rmd
index f79e71d..299c419 100644
--- a/index.Rmd
+++ b/index.Rmd
@@ -2,13 +2,12 @@
 title: Microbiote
 runtime: shiny
 output:
-  html_document:
-    toc: true
-    toc_float: true
+  html_document
 ---
 
 ```{r setup, message = F, warning = F, echo = F}
 library(tidyverse)
+library(readxl)
 library(DT)
 library(knitr)
 library(magrittr)
@@ -35,14 +34,24 @@ Chaque onglet fournit un outil d'analyse différent.
 
 ### Comparaison d'abondances
 
-Fournir un fichier avec les abondances relatives et une variable de groupage (stress/témoin par exemple)
+Cet outil permet les comparaisons sur les abondances relatives avec une technique.
+
+Il faut fournir un fichier contenant les abondances relatives, avec une ou des colonnes décrivant les groupes à comparer.
+
+Le fichier doit être au format csv européen (celui général par excel en enregistrant au format csv), c'est à dire avec des point-virgules pour séparer les colonnes, et des virgules pour les décimales.
 
 L'outil fournit le tableau de comparaison des abondances relatives, le tableau de comparaison des présences de taxons, et la PCA.
 
+Il est possible de choisir la variable de groupage parmis toutes les variables textuelles du fichier, et il est possible d'exclure certaines des abondances de l'analyse.
+
+Tous les tableaux sont exportables au format excel, ou peuvent être directemnent copiés depuis la page. Les tests effectués sont indiqués à côté de la p-value.
+
 ### Comparaison de techniques
 
 Fournir un fichier avec les abondances relatives selon différentes techniques.
 
+(pas encore implémenté)
+
 ## Comparaison d'abondances
 
 ### Données
@@ -58,6 +67,7 @@ Le fichier doit être fourni au format CSV avec les paramètres suivants :
 ```{r data_abondances}
 inputPanel(
   fileInput("data_abondances", "Abondances relatives", accept = "text/csv"),
+  uiOutput("sheets"),
   uiOutput("groupes_abondances"),
   uiOutput("variables_abondances")
 )
@@ -66,19 +76,30 @@ data_abondances <- reactive(
   {
     req(input$data_abondances)
 
-    read_csv2(input$data_abondances$datapath) %>%
+    #excel_sheets(input$data_abondances$datapath) -> sheets
+    #sheets %>%
+    #  map(~read_excel(input$data_abondances$datapath, sheet = .x) %>%
+    #      mutate_if(is.character, factor)) %>%
+    #setNames(sheets)
+    read_csv2(input$data_abondances$datapath, locale = locale(encoding = "latin1")) %>%
       mutate_if(is.character, factor)
   }
 )
 
+#output$sheets <- renderUI({
+#  req(data_abondances())
+#  selectInput("sheets", "Feuillet", names(data_abondances()))
+#})
+
 output$groupes_abondances <- renderUI({
   req(data_abondances())
-  radioButtons("groupes_abondances", "Groupe", names(data_abondances()))
+  radioButtons("groupes_abondances", "Groupe", names(data_abondances() %>% keep(is.factor)))
 })
 
 output$variables_abondances <- renderUI({
   req(data_abondances())
-  checkboxGroupInput("variables_abondances", "Variables à comparer", names(data_abondances()))
+  names(data_abondances() %>% discard(is.factor)) -> variables
+  checkboxGroupInput("variables_abondances", "Variables à comparer", variables, variables)
 })
 ```