Styling/UI

viz/app.R

       addLegend(position = "topleft",
                 colors = c(tencols, "#808080"),
                 labels = transport.t, opacity = 1,
-                title = "Commute method")
+                title = HTML("Most Common<br/>Commute Method"))
     shinyjs::hideElement(selector="#loading p", asis = TRUE, 
                          anim=TRUE, animType = "slide", time=10)
     leaf
           addLegend(position = "topleft",
                     colors = c(tencols, "#808080"),
                     labels = transport.t, opacity = 1,
-                    title = "Commute method"
+                    title = HTML("Most Common<br/>Commute Method")
                     ) %>%
           clearGroup("hpoly")
       } else {
           addLegend(position = "topleft",
                     colors = c(tencols, "#808080"),
                     labels = edu.t, opacity = 1,
-                    title = "Commute method"
+                    title = HTML("Most Common<br/>Commute Method")
                     ) %>%
           clearGroup("hpoly")
       } else {

viz/extras.R

   box-shadow: 0 0 15px rgba(0,0,0,0.2);
   font-size: 1.5em;
   font-weight: bold;
+  margin: 0;
 }
 #mapcontrol, #infobuttoncontainer, #infopanel {
   background-color: rgba(255, 255, 255, 0.8);
   height:50px;    
   position:absolute;
   left:0;
-  bottom:0;
+  bottom:5px;
   right:0;
   background:linear-gradient(transparent 0px, 
     rgba(255, 255, 255, 0.9));