Help INRAE

internals.R

@@ -114,17 +114,3 @@ collapsedBox <- function(data, title = title)  {
     data
   )
 }
-
-scriptHead <- c(
-  "# Loading packages",
-  "library(phyloseq.extended)",
-  "",
-  "# Loading data",
-  glue(
-    "load(\"Easy16S-data.{Sys.Date()}.RData\") # if necessary, adapt the file path"
-  ),
-  "",
-  "# View data",
-  "data",
-  ""
-)

panels/Help-ui.R

 Help <- div(HTML("<p>
                   Questions, problems or comments regarding this application should be sent to
-                  <a href = \"mailto:cedric.midoux@irstea.fr?subject=[Easy16S]\">cedric.midoux@irstea.fr</a>
+                  <a href = \"mailto:cedric.midoux@inrae.fr?subject=[Easy16S]\">cedric.midoux@inrae.fr</a>
                   </p>
 
                   <p>
                   For more information about this tool, you can refer to
-                  <a href = \"http://migale.jouy.inra.fr/sites/migale.jouy.inra.fr.drupal7.migale.jouy.inra.fr/files/JOBIM2018_poster.pdf\">this poster</a>.
+                  <a href = \"http://migale.jouy.inrae.fr/sites/migale.jouy.inra.fr.drupal7.migale.jouy.inra.fr/files/JOBIM2018_poster.pdf\">this poster</a>.
                   </p>
 
                   <p>
@@ -18,8 +18,8 @@ Help <- div(HTML("<p>
                   </p>
                   <br>
                   <p align=\"center\" position=\"absolute\" bottom\"80px\">
-                  <img src=\"migale.png\" width=\"100\"/>
-                  <img src=\"Irstea.png\" width=\"100\"/>
+                  <img src=\"migale.png\" width=\"150\"/>
+                  <img src=\"INRAE.png\" width=\"150\"/>
                   </p>
                   "
   )

server.R

@@ -6,7 +6,6 @@ library(phyloseq)
 library(phyloseq.extended)
 library(ggplot2)
 library(dplyr)
-library(glue)
 library(magrittr)
 library(factoextra)