Remove diy search

MedicalCentres/app.R

@@ -101,12 +101,6 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
                }"),
     div(class = "dropdowncont",
     dropdownButton(
-      searchInput("mapsearch",
-                  placeholder = "Search GP practices by name",
-                  btnSearch = icon("search"), 
-                  btnReset = icon("remove"), 
-                  width = "100%"),
-      hr(),
       radioButtons("selcol", "Colour by",
                    choices = c("None" = "None",
                                "DHB affiliation" = "DHB",
@@ -169,22 +163,6 @@ server <- function(input, output, session) {
       }
     })
 
-    observeEvent(input$mapsearch, {
-      ms <- input$mapsearch
-      if (ms != "") {
-        dists <- as.vector(adist(ms, Geo2017$name, 
-                                 costs = c("in" = 1, "del" = 1, "sub" = 1), 
-                                 fixed = TRUE,
-                                 partial = TRUE,
-                                 ignore.case = TRUE))
-        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