Manuel + sélection variables de groupage et préselection variables à

analyser

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)
 })
 ```