disease_database_viewer/ui.R at main · sodascience/disease_database_viewer · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
library(shiny)
library(bslib)

DISEASES <- c(
  "cholera",
  "diphteria",
  "dysentery",
  "influenza",
  "malaria",
  "measles",
  "scarletfever",
  "smallpox",
  "tuberculosis",
  "typhus"
)

page_sidebar(
  title = "Disease database viewer",
  sidebar = sidebar(
    selectInput("disease", "Disease", choices = DISEASES),
    p("Mentions"),
    plotOutput("spark", height = 80),
    sliderInput(
      "year",
      "Year",
      value = 1866,
      min = 1830,
      max = 1939,
      step = 1,
      sep = "",
    ),
    checkboxInput("monthly", "Select month"),
    conditionalPanel(
      "input.monthly",
      sliderInput(
        "month",
        "Month",
        value = 1,
        min = 1,
        max = 12,
        step = 1
      )
    )
  ),

  card(plotOutput("map")),
  p(
    span("ODISSEI SoDa Team, 2025."),
    a("Disease database version 1.0.0", href = "https://github.com/sodascience/disease_database/releases/tag/v1.0.0"),
    style = "font-size:10pt;text-align:right;"
  )

)