A working dropdown-style ui; note can't use picker

MedicalCentres/app.R

@@ -10,37 +10,56 @@ DHBs <- sort(unique(Geo2017$dhb_name))
 DHBs <- c(DHBs[DHBs != "Missing"], "Missing")
 
 
-ui <- fluidPage(title = "New Zealand GP Practice Locations 2017",
-        sidebarLayout(position = "right",
-          sidebarPanel(width = 4,
-            style = "overflow-y: auto; height: 100vh; margin: 0;",
-            strong("Not Implemented"), hr(),
-            searchInput("mapsearch",
-                        placeholder = "Search GP practices by name",
-                        btnSearch = icon("search"), 
-                        btnReset = icon("remove"), 
-                        width = "100%"),
-            hr(),
-            radioButtons("selcol", "Colour by",
-                         choices = c("None",
-                                     "DHB",
-                                     "Snargleflagen")),
-            hr(),
-            checkboxInput("dhboverlay", "Show DHB boundaries"),
-            hr(),
-            pickerInput("dhbpicker",
-                        label = "Show from DHBs",
-                        choices = DHBs,
-                        multiple = TRUE,
-                        options = pickerOptions(size=10),
-                        selected = DHBs)
-          ),
-          mainPanel(width = 8,
-            leafletOutput(outputId = "medmap", height = "100vh")
-          )
-        )
+ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
+    tags$style(type = "text/css", 
+               "#medmap {
+                 height: 100% !important;
+                 /*posiiton: absolute;*/
+                 top: 0;
+                 left: 0;
+               }
+               .dropdowncont {
+                 position: fixed;
+                 top: 0;
+                 right: 0;
+                 z-index: 10;
+               }
+               .dropdowncont ul {
+                 overflow-y: auto;
+                 max-height: calc(100vh - 100px);
+               }"),
+    div(class = "dropdowncont",
+    dropdownButton(
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      strong("Not Implemented"), hr(),
+      searchInput("mapsearch",
+                  placeholder = "Search GP practices by name",
+                  btnSearch = icon("search"), 
+                  btnReset = icon("remove"), 
+                  width = "100%"),
+      hr(),
+      radioButtons("selcol", "Colour by",
+                   choices = c("None",
+                               "DHB",
+                               "Snargleflagen")),
+      hr(),
+      checkboxInput("dhboverlay", "Show DHB boundaries"),
+      hr(),
+      actionLink("closedrop", label = "close", icon = icon("close"),
+                 style="float:right"),
+      circle=FALSE, inputId = "ddown", right = TRUE,
+      label = "Options", inline = FALSE, icon = icon("gear"), status = "danger")),
+    leafletOutput(outputId = "medmap")
 )
 
+
 server <- function(input, output) {
     output$medmap <- renderLeaflet({
         leaflet(Geo2017) %>%
@@ -49,6 +68,11 @@ server <- function(input, output) {
                        lat = Geo2017$lat,
                        popup = Geo2017$name)
     })
+
+    observeEvent(input$closedrop, {
+      toggleDropdownButton("ddown")
+    })
+
 }
 
 # Run the application