mod_caseBoxes: caseBoxes UI Function
In fvitalini/babyApp: babyApp

Description Usage Arguments Examples

A shiny Module for displaying the number by type as colored boxes.

1
2
3

mod_caseBoxes_ui(id)

mod_caseBoxes_server(input, output, session, counts, param)

`id, input, output, session`	Internal parameters for shiny.
`counts`	Reactive expression yielding the named vector of cases by type.
`param`	type of measure: weight, temperature, length

if (interactive()) {
  library(shiny)
  ui <- fluidPage(
    tagList(
      babyApp:::mod_caseBoxes_ui("boxes")
    )
  )
  server <- function(input, output, session) {
    counts <- reactive({
      # invalidateLater(2000)
      stats::setNames(sample.int(1000, 3), c("mean_today", "mean_week", "mean_month"))
    })
    callModule(babyApp:::mod_caseBoxes_server, "boxes", counts = counts, param = "weight")
  }
  runApp(shinyApp(ui = ui, server = server), launch.browser = TRUE)
}