inst/ModelBuild/uiSelectData.R

In waternumbers/FloodForT: Flood Forecasting Toolbox

## #######################
## Select data tab
## #######################
fluidRow(
    column(
        12,
        fluidRow(
            column(
                11,
                p("Please select the input and output data along with the calibration and validation periods")),
            column(
                1,actionLink("helpSelect",NULL,icon("question-circle")))),
        fluidRow(
            column(
                4,
                wellPanel(
                    selectInput("selInputVar",
                                "Select the input variable:",
                                "",
                                selected=""),
                    selectInput("selOutputVar",
                                "Select the output variable:",
                                "",
                                selected=""),
                    dateRangeInput("dateCalibRng",
                                   "Select Calibration Period",
                                   startview = "year"),
                    fluidRow(
                        column(
                            6,
                            selectInput("selCalibStrt",
                                        "First sample:",
                                        "",
                                        selected="")
                            ),
                        column(
                            6,
                            selectInput("selCalibFnsh",
                                        "Final sample:",
                                        "",
                                        selected="")
                            )
                       ),
                    dateRangeInput("dateValidRng",
                                   "Select Validation Period",
                                   startview = "year"),
                    fluidRow(
                        column(
                            6,
                            selectInput("selValidStrt",
                                        "First sample:",
                                        "",
                                        selected="")
                            ),
                        column(
                            6,
                            selectInput("selValidFnsh",
                                        "Final sample:",
                                        "",
                                        selected="")
                            )
                        ),
                    actionButton("bttnCalibData","Set Calibration Data")
                    )
                ),
            column(
                8,
                fluidRow(
                    dygraphOutput("plotCalData")
                    ),
                wellPanel(
                    fluidRow(
                        column(
                            6,
                            numericInput("wrnlvl","Warning Level",0,0,100,0.1)
                            ),
                        column(
                            6,
                            numericInput("dnglvl","Danger Level",0,0,100,0.1)
                            )
                        )
                    )
                )
            )
        )
    )