|
@@ -140,7 +140,7 @@ server <- function(input, output) {
|
140
|
140
|
addLegend(position = "topleft",
|
141
|
141
|
colors = c(tencols, "#808080"),
|
142
|
142
|
labels = transport.t, opacity = 1,
|
143
|
|
- title = "Commute method")
|
|
143
|
+ title = HTML("Most Common<br/>Commute Method"))
|
144
|
144
|
shinyjs::hideElement(selector="#loading p", asis = TRUE,
|
145
|
145
|
anim=TRUE, animType = "slide", time=10)
|
146
|
146
|
leaf
|
|
@@ -177,7 +177,7 @@ server <- function(input, output) {
|
177
|
177
|
addLegend(position = "topleft",
|
178
|
178
|
colors = c(tencols, "#808080"),
|
179
|
179
|
labels = transport.t, opacity = 1,
|
180
|
|
- title = "Commute method"
|
|
180
|
+ title = HTML("Most Common<br/>Commute Method")
|
181
|
181
|
) %>%
|
182
|
182
|
clearGroup("hpoly")
|
183
|
183
|
} else {
|
|
@@ -242,7 +242,7 @@ server <- function(input, output) {
|
242
|
242
|
addLegend(position = "topleft",
|
243
|
243
|
colors = c(tencols, "#808080"),
|
244
|
244
|
labels = edu.t, opacity = 1,
|
245
|
|
- title = "Commute method"
|
|
245
|
+ title = HTML("Most Common<br/>Commute Method")
|
246
|
246
|
) %>%
|
247
|
247
|
clearGroup("hpoly")
|
248
|
248
|
} else {
|