-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
88 lines (80 loc) · 3.11 KB
/
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
library(shinydashboard)
library(leaflet)
library(shinythemes)
# A dashboard header with 3 dropdown menus
header <- dashboardHeader(
title = "EDI scores in Surrey",
# Dropdown menu for messages
dropdownMenu(type = "messages", badgeStatus = "success",
messageItem("Support Team",
"This is the content of a message.",
time = "5 mins"
),
messageItem("Support Team",
"This is the content of another message.",
time = "2 hours"
),
messageItem("New User",
"Can I get some help?",
time = "Today"
)
),
# Dropdown menu for notifications
dropdownMenu(type = "notifications", badgeStatus = "warning",
notificationItem(icon = icon("users"), status = "info",
"5 new members joined today"
),
notificationItem(icon = icon("warning"), status = "danger",
"Resource usage near limit."
),
notificationItem(icon = icon("shopping-cart", lib = "glyphicon"),
status = "success", "25 sales made"
),
notificationItem(icon = icon("user", lib = "glyphicon"),
status = "danger", "You changed your username"
)
),
# Dropdown menu for tasks, with progress bar
dropdownMenu(type = "tasks", badgeStatus = "danger",
taskItem(value = 20, color = "aqua",
"Refactor code"
),
taskItem(value = 40, color = "green",
"Design new layout"
),
taskItem(value = 60, color = "yellow",
"Another task"
),
taskItem(value = 80, color = "red",
"Write documentation"
)
)
)
ui <- dashboardPage(
header,
dashboardSidebar(selectizeInput('neighborhood', label = NULL, choices = NULL,
options = list(create = TRUE, maxOptions = 5, maxItems = 1,
placeholder = 'Select a neighborhood')
),
radioButtons("radio", label = h3("Choose the EDI Wave"),
choices = list("Wave 2: 2004-2007", "Wave 3: 2007-2009",
"Wave 4: 2009-2011", "Wave 5: 2011-2013", "Wave 6: 2013-2016"),
selected = "Wave 6: 2013-2016")),
dashboardBody(fluidRow(
column(width = 7,
box(title = "Neighborhood Map", status = "primary", solidHeader = TRUE,
width = NULL, height = 700,
leafletOutput("SHPplot",height = 640)
)
),
column(width = 5,
box(title = "Over all EDI", status = "warning", solidHeader = TRUE,
width = NULL,
plotOutput("edi_overall", height = 300)),
box(title = "Physical", status = "warning", solidHeader = TRUE,
collapsible = TRUE, width = NULL,
plotOutput("edi_physical", height = 300))
)
)
)
)