Commit 0ed0db9c authored by Dorchies David's avatar Dorchies David
Browse files

feat: configuratino form for instant risk assessment overview

Refs #15
parent 35270330
Pipeline #21914 passed with stage
in 3 minutes and 8 seconds
......@@ -13,8 +13,8 @@ Imports:
DT,
glue,
htmltools,
shinydashboardPlus,
shinydashboard
shinydashboard,
shinydashboardPlus
Encoding: UTF-8
LazyData: true
RoxygenNote: 7.1.1
......
#' instant_risk_configuration UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_instant_risk_configuration_ui <- function(id){
ns <- NS(id)
}
#' instant_risk_configuration Server Function
#'
#' @noRd
mod_instant_risk_configuration_server <- function(input, output, session){
ns <- session$ns
}
## To be copied in the UI
# mod_instant_risk_configuration_ui("instant_risk_configuration_ui_1")
## To be copied in the server
# callModule(mod_instant_risk_configuration_server, "instant_risk_configuration_ui_1")
......@@ -9,8 +9,27 @@
#' @importFrom shiny NS tagList
mod_instant_risk_overview_ui <- function(id){
ns <- NS(id)
choices <- seq(length(rvgest::rulesets$rules))
names(choices) <- paste0(choices, ". ", rvgest::rulesets$rules)
tagList(
h1("instant_risk_overview")
selectInput(
"ruleset",
"Rule set",
choices,
selected = NULL,
multiple = FALSE,
selectize = TRUE,
width = NULL,
size = NULL
),
dateInput("date", "Date:", value = Sys.Date()),
lapply(seq(nrow(rvgest::lakes)), function(i) {
numericInput(paste0("V", i),
rvgest::lakes$name[i],
round(getObjectiveStorage()[rvgest::lakes$name[i]]),
min = rvgest::lakes$min[i],
max = rvgest::lakes$max[i])
})
)
}
......
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