R/mod_rv_create_airplane_compact.R

In EDJNet/riskviewer: A modern implementation of the Risk Characterisation Theatre

#' rv_create_airplane UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_rv_create_airplane_compact_ui <- function(id) {
  ns <- NS(id)
  tagList(
    shiny::sliderInput(
      inputId = NS(id, "airplanes_number"),
      round = 1,
      label = "Number of airplanes",
      value = 2,
      min = 1,
      max = 10,
      step = 1
    ),
    shinyWidgets::knobInput(
      inputId = NS(id, "risk_01_ratio"),
      label = "Risk 1",
      value = 20,
      min = 0,
      max = 100,
      step = 0.1,
      post = "%",
      fgColor = "#ff7256",
      fontSize = "36px"
    ),
    shinyWidgets::knobInput(
      inputId = NS(id, "risk_02_ratio"),
      label = "Risk 2",
      value = 5,
      min = 0,
      max = 100,
      step = 0.1,
      post = "%",
      fgColor = "#008b8b",
      fontSize = "36px"
    ),
    shinyWidgets::knobInput(
      inputId = NS(id, "risk_03_ratio"),
      label = "Risk 3",
      value = 0,
      min = 0,
      max = 100,
      step = 0.1,
      post = "%",
      fgColor = "#ffb90f",
      fontSize = "36px"
    )
  )
}

#' rv_create_airplane Server Functions
#'
#' @noRd
mod_rv_create_airplane_compact_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    renderPlot(
      {
        tibble::tribble(
          ~Risk, ~Ratio,
          "Risk 1", input$risk_01_ratio / 100,
          "Risk 2", input$risk_02_ratio / 100,
          "Risk 3", input$risk_03_ratio / 100
        ) %>%
          rv_create_airplane_combo(
            number_of_planes = as.numeric(input$airplanes_number),
            compact = TRUE,
            nrow = 2,
            ncol = 5
          )
      },
      res = 96,
      height = 1024
    ) %>%
      shiny::bindCache(
        list(
          input$risk_01_ratio,
          input$risk_02_ratio,
          input$risk_03_ratio,
          input$airplanes_number
        ),
        sizePolicy = sizeGrowthRatio(
          width = 1024,
          height = 1024,
          growthRate = 1
        )
      )
  })
}

## To be copied in the UI
# mod_rv_create_airplane_compact_ui("rv_create_compact_airplane_1")

## To be copied in the server
# mod_rv_create_airplane_compact_server("rv_create_compact_airplane_1")


rvs_create_airplane_compact <- function() {
  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel = sidebarPanel(
        mod_rv_create_airplane_compact_ui("rv_create_compact_airplane_1"),
        width = 2
      ),
      mainPanel = mainPanel(
        plotOutput(outputId = "airplane_gg", height = 1024)
      )
    )
  )
  server <- function(input, output, session) {
    output$airplane_gg <- mod_rv_create_airplane_compact_server("rv_create_compact_airplane_1")
  }
  shinyApp(ui, server)
}