R/mod_scenarios.R

In jesse-smith/covidscreen: COVID-19 Asymtomatic Screening Strategy Assessment

#' Scenarios UI Function
#'
#' A Shiny module containing code for COVID-19 testing scenario generation and
#' visualization
#'
#' @param id Internal parameter for {shiny}
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_scenarios_ui <- function(id) {
  ns <- NS(id)
  tags$div(
    style = "max-width: 1280px; margin: auto",
    scenarios_info(),
    fluidRow(
      column(width = 8, mod_scenarios_output_ui(ns("output"))),
      column(width = 4, mod_scenarios_input_ui(ns("input")))
    ),
    tags$br()
  )
}

#' Scenarios Server Functions
#'
#' A Shiny module containing code for calculating outputs of COVID-19 testing
#' scenarios
#'
#' @param id,input,output,session Internal parameters for {shiny}
#'
#' @noRd
mod_scenarios_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns

    dist_args <- mod_scenarios_input_server("input")

    mod_scenarios_output_server("output", dist_args = dist_args)
  })
}


scenarios_info <- function() {
  tags$p(
    "Use the settings on the right to customize COVID-19 testing scenarios",
    "for your organization.",
    "You can click on group titles to show/hide that group, or click the info",
    "icon to show information about the settings in that group.",
    "Results on the left change as you update settings. To explore the effects",
    "of a particular setting further, go to the", tags$b("Profiling"), "tab."
  )
}