rejig info button etc

viz/app.R

@@ -65,11 +65,11 @@ ui <- fluidPage(
   absolutePanel(top = 25, right = 10, id="control2",
                 materialSwitch("controlswitch", value=TRUE, right=TRUE,
                                inline=TRUE, status="info")),
-  absolutePanel(bottom = 30, left = 10, id="loading",
+  absolutePanel(bottom = 26, right = 10, id="loading",
                 p("Loading...")),
   absolutePanel(bottom=26, right=10, left=10, top=10, id="infopanel",
                 infotext),
-  absolutePanel(bottom=10, right=10, id="infobuttoncontainer",
+  absolutePanel(bottom=10, left=10, id="infobuttoncontainer",
     prettyToggle("mapinfobutton", label_on = "Info",
                  label_off = "Info", icon_on=icon("times"),
                  icon_off = icon("info"),

viz/extras.R

@@ -75,12 +75,12 @@ blockquote {
   margin: 0;
 }
 .scrollbuffer {
-  height: 20px;
+  height: 50px;
 }
 .overflowable:before {
   content:'';
   width:100%;
-  height:20px;    
+  height:50px;    
   position:absolute;
   left:0;
   bottom:0;
@@ -88,6 +88,9 @@ blockquote {
   background:linear-gradient(transparent 0px, 
     rgba(255, 255, 255, 0.9));
 }
+#infobuttoncontainer label {
+  font-weight: bold;
+}
 "
 
 attribhtml <- '