Complex UI with dropdown

(no elements implemented)

MedicalCentres/app.R

@@ -1,11 +1,56 @@
 library(shiny)
 library(leaflet)
 library(dplyr)
+library(shinyWidgets)
 
 Geo2017 <- readRDS("Geo2017.rds")
+Geo2017$Snargle <- c(TRUE, rep(FALSE, 5))
 
-ui <- fillPage(
-    leafletOutput(outputId = "medmap", height = "100%")
+DHBs <- sort(unique(Geo2017$dhb_name))
+DHBs <- c(DHBs[DHBs != "Missing"], "Missing")
+
+
+ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
+    tags$style(type = "text/css", 
+               "#medmap {
+                 height: 100% !important;
+                 posiiton: absolute;
+                 top: 0;
+                 left: 0;
+               }
+               #ddown {
+                 position: absolute;
+                 top: 0;
+                 right: 0;
+                 z-index: 10;
+               }"),
+    dropdownButton(
+      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 DHBs"),
+      hr(),
+      #pickerInput("dhbpicker",
+      #            label = "Show from DHBs",
+      #            choices = DHBs,
+      #            multiple = TRUE,
+      #            options = pickerOptions(size=3),
+      #            selected = DHBs),
+      #hr(),
+      actionLink("closedrop", label = "close", icon = icon("close"),
+                 style="float:right"),
+      circle=FALSE, inputId = "ddown", right = TRUE,
+      label = "Options", inline = FALSE),
+    leafletOutput(outputId = "medmap")
 )
 
 server <- function(input, output) {
@@ -16,6 +61,10 @@ server <- function(input, output) {
                        lat = Geo2017$lat,
                        popup = Geo2017$name)
     })
+    
+    observeEvent(input$closedrop, {
+      toggleDropdownButton("ddown")
+    })
 }
 
 # Run the application