Started to add some popover Q-mark buttons

inst/ShinyApp/ui.R

@@ -6,6 +6,7 @@ rm(list = ls(all.names = TRUE))
   ## Load libraries
   library(shiny)
   library(shinyjs)
+  library(shinyBS)
   library(shinyMatrix)
   library(tidyverse)
   library(eolpop)
@@ -91,14 +92,39 @@ rm(list = ls(all.names = TRUE))
 
       # Select type of analysis : cumulated impacted or not
       {column(width = 4,
-              radioButtons(inputId = "analysis_choice",
-                           h4(strong("Slectionner un type d'analyse")),
-                           choices = c("Impacts non cumuls" = "scenario", "Impacts cumuls" = "cumulated")),
-
-              selectInput(inputId = "species_choice",
+              # radioButton : Choix du type d'analyse
+              {radioButtons(inputId = "analysis_choice",
+                           label = h4(strong("Type d'analyse"),
+                                      bsButton("Q_analysis_choice", label = "", icon = icon("question"), size = "extra-small"),
+                                      bsPopover(id = "Q_analysis_choice",
+                                                title = "Choix du type d\\'analyse",
+                                                content = HTML(
+                                                  "<b>Impacts non cumuls</b> : pour analyser l\\'impact d\\'<b>un seul parc olien</b>. <br><br> <b>Impact  cumuls</b> : pour analyser l\\'impact de <b>plusieurs parcs oliens</b> (attention : il faudra fournir des valeurs de mortalits propres  chaque parc)."
+                                                ),
+                                                placement = "right",
+                                                trigger = "click",
+                                                options = list(container='body')
+                                      )
+                           ),
+                           choices = c("Impacts non cumuls" = "scenario", "Impacts cumuls" = "cumulated")
+              )},
+
+              # Choix de l'espce (selectInput)
+              {selectInput(inputId = "species_choice",
                           selected = 1, width = '80%',
-                          label = h4(strong("Slectionner une espce")),
-                          choices = species_list),
+                          label = h4(strong("Slectionner une espce"),
+                                     bsButton("Q_species_choice", label = "", icon = icon("question"), size = "extra-small"),
+                                     bsPopover(id = "Q_species_choice",
+                                               title = "Choix de l\\'espce",
+                                               content = HTML(
+                                                 "Ncessaire pour fixer les valeurs de <b>paramtres dmographiques</b> (survie, fcondit). <br> La liste fournie correspond  une liste d\\'espces prioritaires. Au besoin, une option \\'espce gnrique\\' est disponible  la fin de la liste."
+                                               ),
+                                               placement = "right",
+                                               trigger = "click",
+                                               options = list(container='body')
+                                     )
+                          ),
+                          choices = species_list)},
       )}, # close column
 
       # Show vital rate values