Scrollbar for sidebar (part the first)

MedicalCentres/app.R

@@ -13,6 +13,7 @@ DHBs <- c(DHBs[DHBs != "Missing"], "Missing")
 ui <- fluidPage(title = "New Zealand GP Practice Locations 2017",
         sidebarLayout(position = "right",
           sidebarPanel(width = 4,
+            style = "overflow-y: scroll; height: 100vh; margin: 0;",
             strong("Not Implemented"), hr(),
             searchInput("mapsearch",
                         placeholder = "Search GP practices by name",
@@ -27,6 +28,16 @@ ui <- fluidPage(title = "New Zealand GP Practice Locations 2017",
             hr(),
             checkboxInput("dhboverlay", "Show DHB boundaries"),
             hr(),
+            checkboxInput("dhboverlay2", "Show DHB boundaries"),
+            # hr(),
+            # checkboxInput("dhboverlay3", "Show DHB boundaries"),
+            # hr(),
+            # checkboxInput("dhboverlay4", "Show DHB boundaries"),
+            # hr(),
+            # checkboxInput("dhboverlay5", "Show DHB boundaries"),
+            # hr(),
+            # checkboxInput("dhboverlay6", "Show DHB boundaries"),
+            hr(),
             pickerInput("dhbpicker",
                         label = "Show from DHBs",
                         choices = DHBs,