different geocoding

scratch.R

 table(newFacil$facility_type_name)
 table(Geo2017$facility_type_name)
 
-newcoded <- osm_geocode(gp_new$address[1:5])
+# newcoded <- osm_geocode("21 Ruakura Road, Hamilton East, Hamilton 3216")
+
+newcoded <- geocode(gp_new$address, limit = 1)