Add search feature (diy)

MedicalCentres/app.R

@@ -66,14 +66,6 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
                }"),
     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",
@@ -96,7 +88,7 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
 )
 
 
-server <- function(input, output) {
+server <- function(input, output, session) {
     output$medmap <- renderLeaflet({
         gl <- leaflet(Geo2017)
         gl <- addTiles(gl)
@@ -136,6 +128,18 @@ server <- function(input, output) {
       }
     })
 
+    observeEvent(input$mapsearch, {
+      ms <- input$mapsearch
+      if (ms != "") {
+        dists <- as.vector(adist(ms, Geo2017$name, costs = c("in" = 1, "del" = 1, "sub" = 1), fixed = FALSE))
+        md <- which.min(dists)
+        updateSearchInput(session, inputId = "mapsearch", value = Geo2017$name[md])
+        leafletProxy("medmap") %>% setView(lng = Geo2017$lon[md],
+                                         lat = Geo2017$lat[md],
+                                         zoom = 13)
+      }
+    })
+
 }
 
 # Run the application