Fix ropata/Kopata problem

(i.e., was not ignoring case)

MedicalCentres/app.R

@@ -131,7 +131,11 @@ 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 = FALSE))
+        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],