inst/ModelBuild/uiEstimateDA.R

In waternumbers/FloodForT: Flood Forecasting Toolbox

############################
## ui for estimating models
############################
fluidRow(
    column(
        12,
        fluidRow(
            column(
                11,
                p("Select the models to estimate DA for and visualise the results")),
            column(
                1,actionLink("helpDA",NULL,icon("question-circle")))),
        fluidRow(
            column(
                4,
                wellPanel(
                    selectInput("selDAest",
                                "Select the models to estimate DA for:",
                                choices=NULL,
                                selected=NULL,
                                multiple=TRUE),
                    actionButton("bttnEstDA","Estimate Data Assimilation"))                
                ),
            column(
                8,
                fluidRow(
                    column(width=3,
                           selectInput(
                               inputId = "selDASumm",
                               label = "Select summary:",
                               choices = c("Hydrograph"= "hyd",
                                   "Error Bars" = "err",
                                   "Thresholded RMSE"= "trmse",
                                   "Thresholded CRPS"="tcrps",
                                   "Movie" ="mov"),
                               selected = "hyd")
                           ),
                    column(width=4,
                           selectInput(
                               inputId = "selDAMdl",
                               label = "Models to Plot:",
                               choices = "",
                               selected = "",
                               multiple=TRUE)
                           ),
                    column(width=3,
                           selectInput(
                               inputId = "selDAHorizon",
                               label = "Forecast Horizon to Plot:",
                               choices = "",
                               selected = "",
                               multiple=TRUE)
                           ),
                    column(width=1,
                           checkboxInput('ckValDataDA', 'Validation Period?', FALSE)
                           )
                    ),
                ## column(width=2,
                ##        selectInput(
                    ##            inputId = "selMdlSummPath",
                    ##            label = "Number of paths:",
                    ##            choices = "",
                    ##            selected = "")
                    ##        ),
                    ## column(width=2,
                    ##        selectInput(
                    ##            inputId = "selMdlSummDelay",
                    ##            label = "Delay:",
                    ##            choices = "",
                    ##            selected = "")
                    ##        ),
                    ## column(width=2,
                    ##        selectInput(
                    ##            inputId = "selMdlSummNonLin",
                    ##            label = "Nonlinearity:",
                    ##            choices = "",
                    ##            selected = "")
                    ##        )
                    ## ),
                conditionalPanel(condition = "input.selDASumm=='hyd'",
##                                 h3("hydrograph"),
                                 dygraphOutput("plotEstDA")),
                conditionalPanel(condition = "input.selDASumm=='trmse'",
##                                 h3("Threshold RMSE"),
                                 plotOutput("plotTrmseDA")
                                 ),
                conditionalPanel(condition = "input.selDASumm=='tcrps'",
##                                 h3("Threshold CRPS"),
                                 plotOutput("plotTcrpsDA")
                                 ),
                conditionalPanel(condition = "input.selDASumm=='err'",
##                                 h3("Error plots"),
                                 plotOutput("plotErrDA")
                                 ),
                conditionalPanel(condition = "input.selDASumm=='mov'",
##                                 h3("Error plots"),
                                 plotOutput("plotRealTime"),
                                 fluidRow(
                                     column(4,
                                            dateInput("dtDAmovTime","Jump to date:")
                                            ),
                                     column(8,
                                            sliderInput("sldDAmovTime",
                                                        "",
                                                        min=1,max=1,step=1,value=1,animate=TRUE)
                                            )
                                     )
                                 )
                                 
               
                )
            )
        )
    )