-
Notifications
You must be signed in to change notification settings - Fork 1
/
ui.R
35 lines (27 loc) · 881 Bytes
/
ui.R
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
library(shiny)
library(leaflet)
# the names of the demographic variables are the column names of this data.frame
# the first column name is a list of the regions, so skip it
load("u5mr.RData")
shinyUI(fluidPage(
titlePanel("Mortality Rates from World Bank's World Demographic Indicators"),
fluidRow(column(12, includeMarkdown("text.md"))),
sidebarLayout(
sidebarPanel(
selectInput("year",
label = "Select year",
choices = c(1990:2020),
selected = 2010),
selectInput("country",
label = "Select country",
choices = country.choices,
selected = "United States")
),
mainPanel(
h4("Ranking"),
verbatimTextOutput("summary"),
leafletOutput("map_country"),
plotOutput("country_trend")
)
)
))