Change size of some buttons

viz/app.R

@@ -99,7 +99,7 @@ ui <- fillPage(
                 div(id="loc2"),
                     htmlOutput("secondarylochtml"))
                 ),
-  absolutePanel(top=10, right=9, id="infobuttoncontainer",
+  absolutePanel(top=13, right=13, id="infobuttoncontainer",
                 title="Toggle (I)nformation",
     prettyToggle("mapinfobutton", 
                  label_on = NULL,
@@ -108,15 +108,16 @@ ui <- fillPage(
                  icon_off = icon("info"),
                  animation = "pulse",
                  inline = TRUE,
+                 bigger=TRUE,
                  status_on = "danger",
                  status_off = "primary",
                  value = TRUE)
   ),
-  absolutePanel(top = 40, right = 6, id="control2", title="Toggle pane(L)",
+  absolutePanel(top = 45, right = 7, id="control2", title="Toggle pane(L)",
                 prettySwitch("controlswitch", value=TRUE, label = NULL,
                              slim = FALSE,
                                inline=TRUE, status="info",
-                             fill=FALSE, bigger=FALSE)),
+                             fill=TRUE, bigger=FALSE)),
   absolutePanel(bottom = 26, right = 10, id="loading",
                 p("Loading...")),
   absolutePanel(bottom=26, right=10, left=10, top=10, id="infopanel",