-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathui.r
100 lines (94 loc) · 4.7 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
89
90
91
92
93
94
95
96
ui <-
navbarPage("ADA Accessibility of NYC Stations",
collapsible=TRUE, inverse=FALSE,
tabPanel("ADA Status & Line",
sidebarLayout(
sidebarPanel(
#h4("Filter By:"),
strong(textOutput("stat1.6")),
hr(),
selectInput(inputId = "linesc",
label = "Choose a Line:",
choices = sort(unique(allstops1$s),decreasing = FALSE),
selected = sort(unique(allstops1$s),decreasing = FALSE)[2],
selectize = TRUE),
selectInput(inputId = "ADAc",
label = "Select an ADA Status:",
choices = unique(allstops1$ADA_StatusLayer),
selected = unique(allstops1$ADA_StatusLayer)[1],
selectize = TRUE,
multiple = FALSE),
width = 3),
mainPanel(width = 9,
tags$head(
tags$style(HTML(".leaflet-container { background: #fff; }"))
),
leafletOutput("myMap3", width = "auto", height = 800)
)
)
),
tabPanel("Status",
sidebarLayout(
sidebarPanel(
#h4("Filter By:"),
h5(textOutput("stat")),
strong(hr()) ,
selectInput(inputId = "ADA",
label = "Select an ADA Status:",
choices = unique(allstops1$ADA_StatusLayer),
selected = unique(allstops1$ADA_StatusLayer)[1],
selectize = TRUE),
width = 3),
mainPanel(width = 9,
tags$head(
tags$style(HTML(".leaflet-container { background: #fff; }"))
),
leafletOutput("myMap", width = "auto", height = 800)
)
)
),
tabPanel("Lines",
sidebarLayout(
sidebarPanel(
#h4("Filter By:"),
h5(textOutput("stat1")),
textOutput("stat1.1"),
textOutput("stat1.2"),
textOutput("stat1.3"),
textOutput("stat1.4"),
textOutput("stat1.5"),
strong(hr()),
selectInput(inputId = "lines",
label = "Choose a Line:",
choices = sort(unique(allstops1$s),decreasing = FALSE),
selected = sort(unique(allstops1$s),decreasing = FALSE)[2],
selectize = TRUE),
width = 3),
mainPanel(width = 9,
tags$head(
tags$style(HTML(".leaflet-container { background: #fff; }"))
),
leafletOutput("myMap2", width = "auto", height = 800)
)
)
),
tabPanel("Stations",
sidebarLayout(
sidebarPanel(
strong(textOutput("stat1.7")),
hr(),
selectInput(inputId = "search",
label = "Search Stations:",
choices = sort(unique(allstops1$stationline),decreasing = FALSE),
selected = sort(unique(allstops1$stationline),decreasing = FALSE)[13],
selectize = TRUE,
multiple = TRUE),
width = 3),
mainPanel(width = 9, tags$head(
tags$style(HTML(".leaflet-container { background: #fff; }")),
tags$script(HTML(""))
),
leafletOutput("myMap4", width = "auto", height = 800))
)
)
)