Commit 6c53efc1 authored by peguerin's avatar peguerin
Browse files

add footer institution

parent 65b734aa
......@@ -24,7 +24,7 @@ library(shinycssloaders)
###############################################################################
# DATA
## DATA
choices_datatype=list("Genetic diversity" = "mean_genetic_diversity",
" Surface temperature" = "temperature",
"Number of sequenced species" = "number_of_species",
......@@ -32,10 +32,14 @@ choices_datatype=list("Genetic diversity" = "mean_genetic_diversity",
choices_watertype=c("marine","freshwater")
## Add directory of static resources to Shiny's web server
addResourcePath(prefix = "logos", directoryPath = "docs/logos/")
###############################################################################
## UI
ui <- navbarPage(title = "Worldmap of Fish Genetic Diversity",
ui <- fluidPage(
navbarPage(title = "Worldmap of Fish Genetic Diversity",
theme = shinytheme("flatly"),
tabPanel(title = "Maps",fluid = TRUE, icon = icon("globe-africa"),
......@@ -74,4 +78,18 @@ ui <- navbarPage(title = "Worldmap of Fish Genetic Diversity",
tabPanel("About",fluid = TRUE, icon = icon("info-circle"),
includeMarkdown("docs/infos.md")
)
),
br(),
hr(),
tags$a(href='https://www.cefe.cnrs.fr/fr/',
tags$img(src='logos/cnrs_logo.png', height=60,width=60)),
tags$a(href='https://www.ephe.psl.eu/',
tags$img(src='logos/ephe_logo.png', height=50,width=250)),
tags$a(href='https://ethz.ch',
tags$img(src='logos/eth_zurich_logo.png', height=30,width=160)),
tags$a(href='https://wwz.ifremer.fr/',
tags$img(src='logos/ifremer_logo.png', height=50,width=120)),
)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment