Commit 822aafab authored by Dorchies David's avatar Dorchies David
Browse files

feat: sliders on reservoir storage input

Refs #15
parent ea1964e2
Pipeline #22544 passed with stage
in 2 minutes and 51 seconds
......@@ -29,11 +29,11 @@ mod_instant_risk_overview_ui <- function(id){
fluidRow(
lapply(seq.int(nrow(rvgest::lakes)), function(i) {
column(width = 3,
numericInput(ns(paste0("V", i)),
rvgest::lakes$name[i],
round(getObjectiveStorage()[rvgest::lakes$name[i]]),
min = rvgest::lakes$min[i],
max = rvgest::lakes$max[i]))
sliderInput(ns(paste0("V", i)),
label = rvgest::lakes$name[i],
value = round(getObjectiveStorage()[rvgest::lakes$name[i]]),
min = rvgest::lakes$min[i],
max = rvgest::lakes$max[i]))
})
),
# tableOutput(ns("table"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment