Skip to content
GitLab
Select Git revision
  • dev default
  • master
  • CRAN_v0.3.5
  • CRAN_v0.3.4
  • CRAN_v0.3.3
  • CRAN_v0.3.2
  • CRAN_v0.3.1
  • CRAN_v0.3.0
  • CRAN_v0.2.13
  • CRAN_v0.2.12
  • CRAN_v0.2.11
  • CRAN_v0.2.10.112
  • CRAN_v0.2.9.25
  • CRAN_v0.2.9.23
  • CRAN_v0.2.8.69
  • CRAN_v0.2.6.29
  • CRAN_v0.2.6.27
  • CRAN_V0.2.2.0
  • CRAN_v0.2.0.9
  • CRAN_v0.2.0.8
  • CRAN_v0.1.11.25
Find file BlameHistoryPermalink
ui.R 19.98 KiB
1 
# ui.R
2
3 
#library(markdown)
4
5
6 
navbarPage(title       = div("airGRteaching",
7 
                             a(href = "https://hydrogr.github.io/airGRteaching/",
8 
                               title = "airGRteaching",
9 
                               target = "_blank", rel = "noopener noreferrer",
10 
                               img(src = "fig/logo_airGRteaching_CMJN_square_0125x0121.png", height = 350 / 9)),
11 
                             a(href = "https://webgr.inrae.fr/en/home/",
12 
                              title = "webgr.inrae.fr",
13 
                              target = "_blank", rel = "noopener noreferrer",
14 
                              img(src = "fig/logo_inrae_hydro_CMJN_square.svg", height = 350 / 9)),
15 
                             a(href = "https://www.inrae.fr/en/",
16 
                               title = "inrae.fr",
17 
                               target = "_blank", rel = "noopener noreferrer",
18 
                               img(src = "fig/logo_inrae_CMJN_square.svg", height = 350 / 9)),
19 
                             style = "position:relative; top:-9px;"),
20
21 
           windowTitle = "airGRteaching",
22
23 
           theme       = switch(.GlobalEnv$.ShinyGR.args$theme,
24 
                                Rstudio   = "",
25 
                                Cyborg    = "css/bootstrap.min_Cyborg.css",
26 
                                Cerulean  = "css/bootstrap.min_Cerulean.css",
27 
                                Flatly    = "css/bootstrap.min_Flatly.css",
28 
                                United    = "css/bootstrap.min_United.css",
29 
                                Yeti      = "css/bootstrap.min_Yeti.css",
30 
                                Inrae     = "css/bootstrap.min_Inrae.css",
31 
                                Saclay    = "css/bootstrap.min_Saclay.css"
32 
           ),
33
34
35 
           tabPanel(title = "Modelling",
36 
                    icon  = icon("area-chart"),
37 
                    shinyjs::useShinyjs(), # set up shinyjs
38
39
40 
                    sidebarLayout(position = "left",
41
42
43 
                                  sidebarPanel(width = 3,
44
45 
                                               h4("Choose a dataset:"),
46 
                                               fluidRow(
47 
                                                 column(width = 12, selectInput("Dataset", label = NULL, choices = .ShinyGR.args$NamesObsBV))
48 
                                               ),
49
50 
                                               h4("Choose a model:"),
51 
                                               fluidRow(
52 
                                                 column(width = 6, selectInput("HydroModel", label = "Hydrological model",
53 
                                                                               choices = c("GR4J", "GR5J", "GR6J", "GR2M"))),
54 
                                                 column(width = 6, selectInput("SnowModel", label = "Snow model",
55 
                                                                               choices = c("None", "CemaNeige")))
56 
                                               ),
57
58
59 
                                               h4("Parameters values:"),
60 
                                               sliderInput("X1", label = "X1  (production store capacity)",
61 
                                                           post = "  [mm]",
62 
                                                           min = 0,
63 
                                                           max = 2500,
64 
                                                           step = 10,
65 
                                                           value = 1250),
66 
                                               conditionalPanel(condition = "input.HydroModel == 'GR2M'",
67 
                                                                sliderInput("X2GR2M", label = "X2  (groundwater exchange coeff.)",
68 
                                                                            post = "  [-]",
69 
                                                                            min = +0.05,
70 
                                                                            max = +4,
7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140
step = 0.05, value = 2)), conditionalPanel(condition = "input.HydroModel != 'GR2M'", sliderInput("X2", label = "X2 (intercatchment exchange coeff.)", post = " [mm/d]", min = -5, max = +5, step = 0.05, value = 0), sliderInput("X3", label = "X3 (routing store capacity)", post = " [mm]", min = 0, max = 1000, step = 5, value = 500), sliderInput("X4", label = "X4 (unit hydrograph time constant)", post = " [d]", min = 0.5, max = 10, step = 0.1, value = 5.2)), conditionalPanel(condition = "input.HydroModel == 'GR5J' || input.HydroModel =='GR6J'", sliderInput("X5", label = "X5 (intercatchment exchange threshold)", post = " [-]", min = -4, max = +4, step = 0.05, value = 0)), conditionalPanel(condition = "input.HydroModel == 'GR6J'", sliderInput("X6", label = "X6 (coeff. for emptying exponential store)", post = " [mm]", min = 0, max = 20, step = 0.5, value = 10)), conditionalPanel(condition = "input.SnowModel == 'CemaNeige'", sliderInput("C1", label = "C1 (weighting coeff. for snow pack thermal state)", post = " [-]", min = 0, max = 1, step = 0.01, value = 0.5), sliderInput("C2", label = "C2 (degree-day melt coefficient)", post = " [mm/°C/d]", min = 0, max = 10, step = 0.5, value = 5)), h4("Automatic calibration:"), fluidRow( column(width = 6, selectInput("TypeCrit", label = "Objective function", choices = c("NSE [Q]", "NSE [sqrt(Q)]", "NSE [1/Q]", "KGE [Q]", "KGE [sqrt(Q)]", "KGE [1/Q]"))), column(width = 6, actionButton("CalButton", label = "Run", width = "100%", icon = icon("refresh"), style = ifelse(.GlobalEnv$.ShinyGR.args$theme != "Cerulean", "color:#ffffff; background-color:#A4C400; border-color:#A4C400; margin-top:25px; padding:6px;", "color:#565656; background-color:#ECF0F1; border-color:#DCDCDC; margin-top:25px; padding:6px;"))) ) ), mainPanel(width = 9, fluidRow( column(width = 2, selectInput("PlotType", label = "Choose a plot:", choices = c("Flow time series", "Model performance", "State variables", "Model diagram")) ),
141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210
column(width = 4, offset = 1, sliderInput("Period", label = "Select the time window:", min = as.POSIXct(.ShinyGR.args$SimPer[[1]][1L], tz = "UTC"), max = as.POSIXct(.ShinyGR.args$SimPer[[1]][2L], tz = "UTC"), value = as.POSIXct(.ShinyGR.args$SimPer[[1]], tz = "UTC"), timeFormat = "%F", timezone = "+0000", animate = FALSE) ), conditionalPanel(condition = "input.PlotType == 'Model diagram'", column(width = 4, offset = 0, sliderInput("Event", label = "Select the target date:", min = as.POSIXct(.ShinyGR.args$SimPer[[1]][1L], tz = "UTC"), max = as.POSIXct(.ShinyGR.args$SimPer[[1]][2L], tz = "UTC"), value = as.POSIXct(.ShinyGR.args$SimPer[[1]][1L], tz = "UTC"), timeFormat = "%F", timezone = "+0000", animate = animationOptions(interval = 500), step = 3600 * 24) ) ) ), fluidRow(conditionalPanel(condition = "input.PlotType == 'Model performance'", column(width = 09, plotOutput("stPlotMP", width = "100%", height = "900px"))), conditionalPanel(condition = "input.PlotType == 'Flow time series'", column(width = 09, dygraphs::dygraphOutput("dyPlotTSq", width = "100%", height = "400px"), dygraphs::dygraphOutput("dyPlotTSe", width = "100%", height = "300px"))), conditionalPanel(condition = "input.PlotType == 'State variables'", column(width = 09, dygraphs::dygraphOutput("dyPlotSVs", width = "100%", height = "325px"), dygraphs::dygraphOutput("dyPlotSVq", width = "100%", height = "355px"))), conditionalPanel(condition = "input.PlotType == 'Model diagram'", column(width = 05, dygraphs::dygraphOutput("dyPlotMDp", width = "100%", height = "190px"), dygraphs::dygraphOutput("dyPlotMDe", width = "100%", height = "215px"), dygraphs::dygraphOutput("dyPlotMDq", width = "100%", height = "235px")), column(width = 04, plotOutput("stPlotMD", width = "100%", height = "665px"))), column(width = 03, div(tableOutput("Criteria")), style = "font-size:90%", #conditionalPanel(condition = "input.PlotType == 'Flow time series' || input.PlotType == 'Model diagram'", radioButtons("ShowOldQsim", label = "Show previous simulation (Qold)", choices = c("No", "Yes"), inline = TRUE),#), downloadButton("DownloadTab" , label = "Download sim. as csv", style = "color:#565656; background-color:#ECF0F1; border-color:#DCDCDC; width:170px; height:25px; font-size:95%; padding-top:2px; margin-top:20px;"), #conditionalPanel(condition = "input.PlotType == 'Model performance' || input.PlotType == 'Flow time series' || input.PlotType == 'State variables'", downloadButton("DownloadPlot", label = "Download plot as png", style = "color:#565656; background-color:#ECF0F1; border-color:#DCDCDC; width:170px; height:25px; font-size:95%; padding-top:2px; margin-top:10px;") #) ) ) ) ) ), tabPanel(title = "Summary sheet", icon = icon("th"), sidebarLayout(position = "left", sidebarPanel(width = 3, h4("Choose a dataset:"), fluidRow(column(width = 12, selectInput("DatasetSheet", label = NULL, choices = .ShinyGR.args$NamesObsBV)), style = "height:720px;")), mainPanel(width = 9, fluidRow(uiOutput("Sheet"))) )
211212213214215216217218219220221222223224225226227228229230231232233234235236237
), navbarMenu(title = "Help", icon = icon("question-circle"), tabPanel(title = "Get started", icon = icon("cog", lib = "glyphicon"), fluidRow(column(width = 12, includeMarkdown("www/tab_fun.md"))) ), #! horrible code to avoid fake item when a tabpanel contains an external hyperlink #! (cf.https://gitlab.irstea.fr/HYCAR-Hydro/airgrteaching/-/issues/11) tabPanel(title = HTML("GUI help </a></li><li><a href='https://CRAN.R-project.org/package=airGRteaching' , target = '_blank', rel = 'noopener noreferrer'><i class='fab fa-r-project'></i>&nbsp;CRAN </a></li><li><a href='https://hydrogr.github.io/airGRteaching/' , target = '_blank', rel = 'noopener noreferrer'><i class='fas fa-at'></i>&nbsp;Website </a></li><li><a href='https://gitlab.irstea.fr/HYCAR-Hydro/airgrteaching/', target = '_blank', rel = 'noopener noreferrer'><i class='fab fa-gitlab'></i>&nbsp;GitLab"), icon = icon("question"), fluidRow(column(width = 12, a(href = "https://hydrogr.github.io/airGRteaching/fig/airGRteaching_ShinyUi_description.png", target = "_blank", rel = "noopener noreferrer", img(src = "https://hydrogr.github.io/airGRteaching/fig/airGRteaching_ShinyUi_description.png", height = "770px", alt = "If the image does not appear, click on this link.", title = "Click to open in a new window")))), ), tabPanel(title = "About", icon = icon("navicon"), fluidRow(column(width = 6, includeMarkdown("www/tab_about.md")), column(width = 5, includeMarkdown("www/tab_authors.md"))), ) ) )