change overflow

MedicalCentres/app.R

@@ -13,7 +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;",
+            style = "overflow-y: auto; height: 100vh; margin: 0;",
             strong("Not Implemented"), hr(),
             searchInput("mapsearch",
                         placeholder = "Search GP practices by name",