Styling

viz/app.R

@@ -99,7 +99,8 @@ ui <- fluidPage(
                 div(id="loc2"),
                     htmlOutput("secondarylochtml"))
                 ),
-  absolutePanel(top=10, right=4, id="infobuttoncontainer",
+  absolutePanel(top=10, right=9, id="infobuttoncontainer",
+                title="Toggle (I)nformation",
     prettyToggle("mapinfobutton", 
                  label_on = NULL,
                  label_off = NULL,

viz/extras.R

@@ -33,7 +33,7 @@ html, body {
   z-index: 1000;
 }
 #mapcontrol {
-  width: 22em;
+  width: 20em;
   max-height: 90%;
   overflow: auto;
   -ms-overflow-style: none;  /* IE and Edge */
@@ -145,7 +145,9 @@ kbd:hover {
 .btn.radiobtn {
     text-align: left;
 }
-#control2 .state label {
+#control2 .state label,
+#infobuttoncontainer .state label
+{
     width: 0px;
 }
 "