Simpler, more transferable layout

MedicalCentres/app.R

@@ -10,47 +10,34 @@ 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")
+ui <- fluidPage(title = "New Zealand GP Practice Locations 2017",
+        sidebarLayout(position = "right",
+          sidebarPanel(width = 4,
+            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")
+          )
+        )
 )
 
 server <- function(input, output) {
@@ -61,10 +48,6 @@ server <- function(input, output) {
                        lat = Geo2017$lat,
                        popup = Geo2017$name)
     })
-    
-    observeEvent(input$closedrop, {
-      toggleDropdownButton("ddown")
-    })
 }
 
 # Run the application