inst/ModelBuild/svrUpdateSamp.R

In waternumbers/FloodForT: Flood Forecasting Toolbox

## ###################
## Update the list of available sample when date shanged
## ###################
observe({
    rng <- paste(input$dateCalibRng)
          
    isolate({
        tmp <- paste( index(analysisRecord$baseData[rng[1]]) )
        updateSelectInput(session,"selCalibStrt",choices=tmp)
        
        tmp <- paste( index(analysisRecord$baseData[rng[2]]) )
        updateSelectInput(session,"selCalibFnsh",choices=tmp,
                          selected=tmp[length(tmp)])
    })
})

observe({
    rng <- paste(input$dateValidRng)
    
    isolate({
        
        tmp <- paste( index(analysisRecord$baseData[rng[1]]) )
        updateSelectInput(session,"selValidStrt",choices=tmp)
        
        tmp <- paste( index(analysisRecord$baseData[rng[2]]) )
        updateSelectInput(session,"selValidFnsh",choices=tmp,
                          selected=tmp[length(tmp)])
    })
})