Add search box (doesn't work)

MedicalCentres/app.R

@@ -1,6 +1,7 @@
 #! /usr/bin/Rscript
 library(shiny)
 library(leaflet)
+library(leaflet.extras)
 library(dplyr)
 library(shinyWidgets)
 library(htmltools)
@@ -91,8 +92,11 @@ server <- function(input, output, session) {
         gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                    lat = Geo2017$lat,
                    popup = popups(Geo2017),
-                   col= "blue"
+                   col= "blue",
+                   label = Geo2017$name,
+                   group = "locations"
                    )
+        gl <- addSearchFeatures(gl, targetGroups = "locations")
         gl
     })
 
@@ -107,19 +111,25 @@ server <- function(input, output, session) {
           gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                      lat = Geo2017$lat,
                      popup = popups(Geo2017),
-                     col = snargcol(Geo2017$Snargle)
+                     col = snargcol(Geo2017$Snargle),
+                     label = Geo2017$name,
+                     group = "locations"
                      )
       } else if (input$selcol == "DHB") {
           gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                      lat = Geo2017$lat,
                      popup = popups(Geo2017),
-                     col = dhbcol(Geo2017$dhb_name)
+                     col = dhbcol(Geo2017$dhb_name),
+                     label = Geo2017$name,
+                     group = "locations"
                      )
       } else {
           gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                      lat = Geo2017$lat,
                      popup = popups(Geo2017),
-                     col= "blue"
+                     col= "blue",
+                     label = Geo2017$name,
+                     group = "locations"
                      )
       }
     })