Commit 610dad07 authored by peguerin's avatar peguerin
Browse files

add panel about

parent e65cc6fd
......@@ -34,49 +34,44 @@ choices_watertype=c("marine","freshwater")
###############################################################################
# UI
ui <- dashboardPage(
dashboardHeader(title = "Worldmap of Fish Genetic Diversity",titleWidth=480),
dashboardSidebar(width=480,
fluidRow(
column(width=12,
align="center",
# Select freshwater or marine fishes
selectInput("watertype",
label = "freshwater/marine species",
choices = choices_watertype,
selected = "marine"),
## UI
ui <- navbarPage(title = "Worldmap of Fish Genetic Diversity",
theme = shinytheme("flatly"),
tabPanel(title = "Maps",fluid = TRUE, icon = icon("globe-africa"),
sidebarLayout(
sidebarPanel(
## Select freshwater or marine fishes
selectInput("watertype",
label = "freshwater/marine species",
choices = choices_watertype,
selected = "marine"),
## Select data type
selectInput("cell_datatype",
label = "Cell values",
choices = choices_datatype,
selected = "mean_genetic_diversity"),
# Select data type
selectInput("cell_datatype",
label = "Cell values",
choices = choices_datatype,
selected = "mean_genetic_diversity"),
hr(),
# Link for source code
tags$a("Developped by Pierre-Edouard GUERIN", href="https://github.com/Grelot/global_fish_genetic_diversity", target="_blank"),
# Explanation
tags$footer(tags$p("")),
# Link for paper
tags$a("Manel et al. 'Global determinants of freshwater and marine fish genetic diversity' Nature Communication", href="https://doi.org/10.1038/s41467-020-14409-7", target="_blank"),
hr(),
# Credits
tags$a("Template inspired by the GAPeDNA app", href="https://github.com/virginiemarques/GAPeDNA", target="_blank"),
# Update info
tags$footer(tags$p("Last updated in February 2020 with kind help of Virginie Marques", class = "credit"))
hr(),
tags$footer(tags$p("Actinopterygii mitochondrial barcode sequences extracted and curated from Barcode Of Life database (December 2018)"))
),
mainPanel(
fluidRow(
## the worldmap
leafletOutput("mymap",height=640,width=960)
)
)
)
),
tabPanel("About",fluid = TRUE, icon = icon("info-circle"),
includeMarkdown("docs/infos.md")
)
)
),
dashboardBody(
fluidRow(
## the worldmap
leafletOutput("mymap",height=640,width=960)
)
)
)
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