inst/ModelBuild/uiSave.R

In waternumbers/FloodForT: Flood Forecasting Toolbox

## ###################
## Save tab
## ###################
fluidRow(
    column(
        12,
        fluidRow(
            column(
                11,p("Please save the selected data for use elsewhere")),
            column(
                1,actionLink("helpSave",NULL,icon("question-circle")))),
        fluidRow(
            column(
                4,
                wellPanel(p("Save the workspace"),
                          downloadButton("bttnSave","Save"))
                ),
            column(
                8,
                wellPanel(p("Save a model or its forecasts"),
                          fluidRow(
                              column(4,
                                     selectInput("selSaveMdl","Select model:",
                                                 "",selected="")
                                     ),
                              column(4,
                                     downloadButton("bttnSaveMdl","Save Model")
                                     ),
                              column(4,
                                     downloadButton("bttnSaveFrcst","Save Forecast")
                                     )
                                     
                              )
                          )
                )
            )
        )
    )