footer

ui.R

@@ -72,8 +72,21 @@ shinyUI(dashboardPage(
       tabPanel(
         "Summary",
         verbatimTextOutput("phyloseqPrint"),
-        withLoader(uiOutput("summaryTable"))
-      ),
+        withLoader(uiOutput("summaryTable")),
+        tags$footer(
+          "Questions, problems or comments regarding this application should be sent to ",
+          a(href = "mailto:cedric.midoux@irstea.fr?subject=[Easy16S]", "cedric.midoux@irstea.fr"),
+          align = "center",
+          style = "position:absolute;
+          bottom: 0;
+          width: 100%;
+          color: grey;
+          padding: 10px;
+          # background-color: white;
+          z-index: 1000;
+          "
+        )
+        ),
       tabPanel("Global barplot",
                withLoader(plotOutput("histo", height = 700)),
                uiOutput("histUI")),
@@ -157,6 +170,6 @@ shinyUI(dashboardPage(
           a(href = "mailto:cedric.midoux@irstea.fr?subject=[Easy16S]", "cedric.midoux@irstea.fr")
         )
       )
+        )
     )
-  )
-))
+  ))